FFFFFFFFFFEFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DODDDDDDDDDDD 

FFF DDD DOD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFFFFFFFFFFF DDD DDD 
FRFEFFFFFFFFE DDD DDD 
FFFFERFFFFFF DDD DOD 
FFF DDD DDD 
FFF DOD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDDDDDDDPDDD 

FFF DDDDDDDDDDDD 

FFF DDDDDDDDDDDD 
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**F 1LE®*1D**F DLPARSE 
FFFFFFFFFF DDODDDDD LL PPPPPPPP AAAAAA RRRRRRRR 
FFFFFFFFFF DDDDDDDD LL PPPPPPPP AAAAAA RRRRRRRR 
FF DD DD LL PP PP AA AA RR RR 
FF DD DD LL PP PP AA AA RR RR 
FF DD DD LL PP PP AA AA RR RR 
FF DD DD LL PP PP AA AA RR 
FFFFFFFF DD DD LL PPPPPPPP AA AA RRRRRRRR 
FFFFFFFF DD DD LL PPPPPPPP AA AA RRRRRRRR 
FF DD DD LL PP AAAAAAAAAA RR RR 
FF DD DD LL PP AAAAAAAAAA RR RR 
FF DD DD LL PP AA AA RR RR 
FF DD DD LL PP AA AA RR RR 
FF DDDDDDDD LLLLLLLLLL PP AA AA RR RR 
FF DDDDDDDD LLLLLLLLLL PP an AA RR RR 
LL 111111 SSSSSSSS 
LL III1I1 SSSSSSSS 
LL I] SS 
LL I] SS 
LL II $5 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL 11111 SSSSSSSS 
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| 14-Sep- 7198¢ 12:31:19 DISKSVMGMASTERS CY DL SRCSFDLPARSE. p3237° «1) vos 
| 001 OQ XTITLE ‘FOLSPARSE’ 
0 ¢ ZSBTTL ‘FOL Parse Action Routines’ 
00 MODULE FDLPARSE ( IDENT="V04=000", 
004 ADDRESSING_MODE (EXTERNAL = GENERAL ), 
0005 ADDRESSING“MODE ( NONEXTERNAL = GENERAL ), 
9006 OPTLEVEL= 
00 ) = 
00 
00 BEGIN 
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i ALL RIGHTS RESERVED. 
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!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘* onmpokat tine NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FDLPARSE FDLSPARSE 16-Sep-1984 01:50:0 VAX=11 Bliss-32 V4.0-74 Page 3 FDI 
v04-000 FDL Parse Action Routines 12-808-19be 15:39:98 DISKSVMSMASTER: CFDL.SRC FDLPARSE.B32:1> (3) v0! 
3; 6 (C6? 806? 1! 
; o8 pRe : Author: Keith B Thompson Creation date: July-1981 
: 70 0068 1} 
H 71 0069 1 ! Modified by: 
, ¢£ 0070 1! 
5 7 0071 1! v03-011 RRBOO1S Rowland R. Bradle 29 Feb 1984 
: 74 Berg 1! Comment out pozerenses to ERASE_ON_DELETE and ACL support. 
: ? Bet 7 : } Not supported for V4 
co 0075 1: v03-010 RRBOOO8 owland R. Bradley 19 Jan 1984 
3 re Bore : Support NULL sartees in file name. 
: 80 0078 1! V03-009 KFHO007 Ken Henderson 10 Sep 1983 
3 3 TO : Support for named UICs 
. &§ 0081 1: V03-008 KFHO006 Ken Henderson 29 Jul 1983 
; @& set] zz Check status of call to LIB$.. 
: #4 Boez : Added DEFERRED_WRITE, PRISE _ON., DELETE 
: 87 0085 1 V03-007 KFHOOOS Ken Henderson 6 Jan 1983 
3 88 pone : } Fixed allocation of keyname buffer 
: 90 0088 1! V03-006 KFHO004 Ken Henderson 21 Dec 1982 
; 3 4494 ' Deleted unused ref to tpa_block 
re 0091 1! v03-005 KFHOOO3 Ken Henderson 22 Nov 1982 
: 94 009 1! Add support for default and main 
5 95 0093 1! perses in FDLSPARS 
: 38 bes : ix FDLSSFREE_VM to signal status 
: 98 0096 1: VO3-004 KFHO002 Ken Henderson 6-0c t-1982 
: 99 0097 1! Add support for Journal, Access, 
: 4 site : ACL, Sharing, Connect primaries 
: 102 0100 1! v03-003 KBT0069 Keith B. Thompson 24-Jun-1982 
: 1o? Hh : } Initialize the ioneh in fdl$ab_item 
: 105 5108 1: v03-002 KBT0030 Keith Thompson 30-Mar-1982 
3 198 He : } Fix error processing of the date & time stuff 
: 108 0106 1! v03-001 KFH 0001 ren Henderson 29 March 1982 
: 109 0107 1! Fixed SET_AREA_P to set LBN 
: 110 0108 1! instead of VBN for volume placement 
: 111 0109 1! 
s 112 0110 1 !eeee 
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90 ZSBTTL ‘INIT_PARSE' 
GLOBAL ROUTINE FDLS$SINIT_PARSE : NOVALUE = 
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Functional Description: 


Init variables and allocate a buffer for the area bucket sizes 


b—pee ta-t tytr4 


i Calling Sequence: 
fdl$$init_parse() 
i Input Parameters: 
none 


Wr oO 


al 
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- 1 3 
3 «Y 1 : 
; 7% 1 ; 
ss 1 : 
; (y 1 : 
3 1 : 
eS 1! : 
3 . : 
. 9 1! 5 
s 4 1! : 
3; 2 3 3 
3 1! $ 
3 $ [3 3 
3 2 1! 3 
; € 1! 3 
3; @ 1! Implicit Inputs: : 
.-< 1! none 3 
s gor 1! 3 
: 208 1 ! Output Parameters: 3 
: 209 1! non 3 
: 210 1! $ 
‘ae i} 1 ! Implicit Outputs: 3 
3 (eta 1! none g 
3; 23 1! 3 
: 214 1 ! Routine Value: s 
s 215 1! n 3 
3; 2% 1! 3 
s el 0 1 ! Routines Called: 3 
; 218 09 3 3 
: 219 0937 1! LibSget_vm : 
: 220 Oyse 7: 3 
: 221 0939 1! Side Effects: 3 
: $56 0940 1! 3 
ae 0941 1! Allocates a buffer pointed to by FDL$AB_AREA_BKZ 3 
; 226 0942 1! 3 
: 225 0943 1 !-- 3 
: 226 0944 1 3 
: ger 0945 2 BEGIN : 
: 228 0946 2 3 
; 229 0947 2 LOCAL : 
; 230 0948 2 BYTES; é 
3; ol 0949 : : 
; $38 boas Set the parse control bits : 
; $3 095¢ FDLSAB_CTRL C FOL$V_STATUS ] = _SET; ; 
; 339 0993 3 FDLSABICTRL C FOLS$V“INITIAL ) ="_SET; : 
3 aor 0955 ' Clear the other CTRL bits except the following ones: : 
: 238 3938 ' PCALL é 
3 +44 095 ' = =pcL : 
: 240 0958 i STRING_SPEC : 
s 261 0959 ' — GCALL 2 
3 ri} 0960 : ; 
> 26 961 FDLSAB_CTRL { FDL$V_WARNING ) = _CLEAR; ; 
> 264 96 FDLSAB-CTRL £ FDOLS$V“PRIMARY } = “CLEAR: ; 
; 245 96 $ FDOLS$AB_CTRL C FDLSVINEWPRI ) = _CLEAR; 3 
> 266 0964 FDLSAB-CTRL C FDLS$VZSECONDARY J~= _CLEAR; ; 
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Utilities 
FDLSAB_CTRL [ FDLS$V_COMMENT } = _CLEAR; 
FDLSAB_CTRL C FDLSVILINECMT J = “CLEAR: 
FDLSAB_CTRL C FDLS$VZAPOST_PRES : = C EAR; 
FDLSAB-CTRL € FDLS$V-QUOTE-PRES J = “CLEA 
FDLSAB-CTRL C FDLSVIUSED_STRING ) = ~ tee AR: 


Initialize the item length for fdl$get_line 
FDLSAB_ITEM C DSC$W_LENGTH J] = 0; 
Ao -FDLSAB_CTRL C FDLSV_REPARSE J 

BEGIN 

Clear the pointers to xabs 


XAB = _CLEAR; 
ATE Kap = “CLEAR; 
REV ISION_XAB = CLEAR; 
PROTECTION. XAB = _CLEAR; 
END; 
; Clear misc 
FDLSGL_ srr = 0; 
FDLSAB-PRICTR = _CLEAR; 
CURRENT_XAB = “CLEAR; 
HIGHEST_AREA_NO = 0; 


' Allocate memory for the are 
we can return this in fdl$$ 


BYTES = 256; 

IF NOT LIBSGET_VM ( BYTES, FDLSAB_AREA_BKZ ) 
SIGNAL_STOP ( FDLS_INSVIRMEM ); 

Zero the values 

CHSFILL( 0,.BYTES,.FDLSAB_AREA_BKZ ); 

RETURN 

END; 


inish_parse 
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Fe bucket size array NOTE: Use Lib$get_vm so 


FDLPARSE VAX-11 FDL Utilities 
\v04-000\ 


_FDLSOWN,NOEXE, 


00000 HIGHEST_AREA_NO: 
LKB 


00001 *BLKB 
00004 CURRENT_XAB: 


5 
FDLPARSE VAX-11 FDL Utilities 1b-se =1984 01:50:0 VAX-11 Bliss-32 v4 8 
V0%-000 INIT_PARSE aR er 3:30:08 DISKSVMSMASTER:CFDL. OSACSFDLPARSE. B32, 719° 655 

-BLKB 4 

$0088 She -XAB: BB 4 

001 
at 4 

00014 cata ; 

00018 PROTECTION XAB: 
-BCKB 4 
EXTRN LIBSGET_VM, LIBSFREE_VM 
-EXTRN FOLSSRMS_ERROR, FDLS$~FACILITY 
-EXTRN FDLS$_FAO-MAX, FOL$_ABKW 
-EXTRN FDLSTABPRIKW, FDLS$-CREATE | 
-EXTRN FDLS-CREATED, FDLS~CREATEDSTM 
SEXTRN FOLSTFDLERROR, FOLS _ILL_ARG 
-EXTRN FOLS_INSVIRMEM, FDLS_INVBLK 
«EXTRN FDLS_INVDATIM, FDL$_MULPRI 
SEXTRN FDLS$MULSEC, FDL$_NOQUAL 
-EXTRN FDLSTNULLPRI, FDLS_OPENFDL 
-EXTRN FDLS$TOUTORDER, FDLS$_OPENOUT 
EXTRN FDLS-WRITEERR, FOLS$~READERR 
-EXTRN FDLS$"RFLOC, FOL$_TITLE 
-EXTRN FDLS_SYNTAX, FDLS_VALPRI 
~-EXTRN FDLS_UNQUAKW, FOLS_UNPRIKW 
.EXTRN FDLS"UNSECKW, FDLS$ "WARNING 
SEXTRN FDLS$AB_TPARSE_BLOCR 
SEXTRN FOLSAB-ITEM, FDLS$AB_CTRL 
-EXTRN FDLS$GL~ “PCALL PDE sec STMNTNUM 
SEXTRN FDLSGL-PRIMARY, FOLSGL_ | 
TEXTRN FDLSAB~PRICTRL. FDLS$GL~ SECONDARY | 
-EXTRN FDLSGLZSECNUM, FDLS$GL_QUALIFIER | 
“EXTRN FDLSGL~ NUMBER FDLSGL~SWITCH | 
“EXTRN FDLSGL-OWNER_UIC | 
-EXTRN FDLSGL ~SPARET. FDOLSGL_PROTECTION | 
.EXTRN FDLSGL~FID1, f GL_FID2 | 
-EXTRN FDLSGL-FID3, FDL$AB-AREA_BKZ 
-EXTRN FDLSAL~DAT 
-EXTRN FDLSAB-STRING, gh QLSAB PARSED_FAB | 
-EXTRN FDLSAB~PARSED_R 


-PSECT _FDLSCODE,NOWRT, SHR, PIC,2 


O1FC 00000 .ENTRY FDLSSINIT_PARSE, Save R2,R3,R4,R5,R6,R7,R8 ; 0909 
58 000000006 00 9€ 00002 MOVAB FDLSAB_AREA_BK z. R RB : 
57 000000006 00 9E 00009 MOVAB FDLSAB-CTRL; R ; 
56 00000000' 00 9€ 00010 MOV JNL_XAB, ; 
SE 04 C2 00017 SUBL a4, ; | 
67 03 00 01 FO OOO1A INSV #0, o Ske FOLSAB_ CTRL ; 0952 
67 80 F 88 OOOIF BISB His > 095 
67 E3 F AA 00023 BICW #3 32, POL eKS CTRL > 0969 
000000006 : B4 00028 CLRW TEM ; 0973 
05 02. =A ES 90 : BLBS FDL SAB™ CTRL+2, ; 0975 
66 7C 000 CLROQ JN xA ; 0981 | 
08 A6 7C 00034 CLROQ EVISIO XAB : 0985 | 
900000 G 00 D4 00037 1$: CLRL rp DL$GL OTMNTNUM > 0990 | 
000000006 00 04 0003p CLRL —«- FDL $AB~PRICTRL : 0991 


yy | 
FDLPARSE VAX=11 FDL Utilities 16-Sep-1984 1:50:0 VAX=11 Bliss-32 V4 743 9 
v04-000 INIT_PARSE 14-Sep-1984 12:31:1 DISKSVMSMASTER:CFDL. yt: FDLPARSE. B32. 19° 655, 
FB AB D4 00043 CLRL §_ CURRENT_XAB : 0992 
FAB «94 00046 CLRB HigHest=h “AREA. NO + 0993 
6E 0100 8F 3C 00049 MOVZWL TES ~ + 0998 
58 DD 0004 P'SHL + 1000 
04 A 9F 0005 PUSHAB ayre S 3 
000000006 00 FB 053 CALLS BSGET_VM : 
000000006 8F DD 030 PUSHL RO INSVIRMEM + 1002 
000000006 99 1 FB 6 CALLS #1, LIB$STOP : 
68 p 6A 2$: MOVL. FDLS$AB_AREA_BKZ, RO + 1006 
6E 00 00 C 60 MOVCS #0, (SP), #0, BYTES, (RO) : 
04 ie RET : 


; Routine Size: 116 bytes, Routine Base: _FDLSCODE + 0000 


8 


wu > Pee eee ee eee eee ee eer eee eT ee ere ee eer eter eer er er er ee ee er ee ee ee ee) ee ee ed ee ee ee es es Ee ee ee ee 


Pa 
.B32:1> ( 


$FDLPARSE 


ss-32 V4.0-74 
STER:CFDL.SRC 


—< 


s duing processing 


f there were real eo pa 


- If everything completed corectly 
- if there were warnin 


F INISH_PARSE 


: REF BLOCK C ,BYTE J, 


1SH_PARSE 
NE “FDLS 


Functional Description: 
FDLERROR 


WARNING 


z2ae 


$ 
FDLS$ 


Ties up any loose ends and returns with the final status value 
Routines Called: 


status = fdl$$finish_parse() 


S$S$_NORMAL 
Lib$free_vm 


Calling Sequence: 
Input Parameters: 
none 
Implicit Inputs: 
none 
Output Parameters: 
none 
Implicit Outputs: 
none 
FDL 
none 
' If successful then continue and return ok 


Routine Value: 


DL Utilities 
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VAX=11 FDL Utilities 16-Sep-1984 01:50: VAX=11 Bliss=32_V4.0-74 Page 11. FOI 

F INISH_PARSE 12-88-1382 93:39:98 DISKSVMSMASTER: CFDL.SRC FDLPARSE.B32;1> (6) vO 
s 35) 1068 ! If the problem was a warning then continue and return fdl$_warnin ’ 
3 383 1985 else return imeditaly ’ = . : 
: $2¢ te IF .FDOLSAB_CTRL C FDLSV_STATUS J] EQLU STS$K_WARNING ; 
; 356 1978 STATUS = FDLS_WARNING : 
; 324 1074 ELSE ; 
: 328 192? RETURN FDOLS$_FDLERROR; ° 
; 360 1077 ! Travel through the xabs and fix up random things ‘ 
; 30) 1078 2 ' UNLESS THIS IS JUST A DEFAULT PARSE ; 
; 306 1079 ¢ ! : 
; 1080 IF (¢ : 
; 364 1081 4 ( NOT .FDLSAB_CTRL C FDLSV_DFLT_PRES J ) : 
: 365 1386 3 OR ; 
; 366 1083 4 ( .FDLSAB_CTRL C FDLSV_REPARSE ) ) | : 
; 367 1084 ) THEN ‘ 
; 368 1085 BEGIN ; 
; 369 1086 ; 
; 370 1087 XAB = .FDLSAB_PARSED_FAB C FABSL_XAB J; | : 
3 Sri 1088 3 ; 
; 372 1089 3 WHILE .XAB NEQU 0 ; 
; 373 1090 3 DO | : 
3; 374 1091 4 BEGIN ‘ 
3; 37S 1092 4 , 
; 3 1093 4 ! If this is a key xab fix the fill factors if neccary ; 
:° ore 1094 4 ! ; 
; 378 1095 4 IF .XAB C XABSB_COD J] EQLU XABSC_KEY ‘ 
: 379 1096 4 THE ‘ 
; 380 1097 5 BEGIN : 
; «381 1098 5 ; 
s See 1099 5 ! Make sure the area numbers are valid if not simply exit ; 
; $07 toe ; ; RMS will catch it during the create ; 
; 385 1108 5 IF ( .XAB C_XAB$B_DAN ] GTRU .HIGHEST_AREA_NO ) OR ; 
; 386 1103 6 ( .XAB C XABSB_IAN ] GTRU .HIGHEST_AREA_NO ) : 
s Ser 1104 5§ THEN ; 
; 388 1105 § EXITLOOP; e 
; 389 1106 5 
3 4 1t0e : Data level fill 
3 392 1109 6 MAB C XABSW_DFL J] = ( .FDLSAB_AREA_BKZ C .XAB L XAB$B_DAN J : * BLOCK_SIZE * 
; 393 1110 § .XAB C XABSW_DFL J) / 100; 
: 394 1111 é 
3 a2 1116 : Index level fill 
: 397 1114 é XAB C XABSW_IFL ] = ( .FDLSAB_AREA_BKZ C ,XAB [ XABSB_IAN J } * BLOCK_SIZE * 
: 398 1115 .XAB £ XABSW_IFL 7) / 100 
; 399 1116 4 END; 
; 400 1117 4 
: 401 1118 4 XAB = .XAB LC XABSL_NXT J 
; 40 1119 4 
; 40 1120 END; 
: 404 1121 
; 405 11 ; END; 
; 606 11 , 
; 607 1124 ! Deallocate memory for the area bucket size array 
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an 


‘AO 52 8 MOVW 2, 26(XAB) , : 
88 04 Ab i ym BOVL 4(KAB), XAB > 1118 
6 0100 BF 3¢ A? 7$: MOVZWL ep BYTES : 1126, 
a bo AC PUSHL : 11 
06 AE OF A PUSHAB : 
000000006 99 re B CALLS eS ASFREE _vM : 
5 ss ta Hat <a + 1132 
000000006 99 | FB 0BD CALLS #1, LIBSSTOP : 
D O0¢4 8$: MOVL STATUS. RO + 1135 
04 000C7 RET : 1137 
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Functional Description: 
Main parsing routine. 


Calling Sequence: 
Called from parse tables 
Input Parameters: 
fdl$gl_primary - Primary code 


Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 


Routine Value: 

Values returned by called routines 
Routines Called: 

-fdl$gl_pcall 

set_area_p 

set_date_p 


not supported v4.0 


set_access_p 
set_sharing_p 
set_connect_p 


Side Effects: 
none 


BEGIN 
TPARSE_ARGS; 


LOCAL 
STATUS; 


STATUS = SS$_NORMAL; 


6 
4 Utilities 1hes6 
D 14-Se 
SBTTL ‘LINE PARSER. 
LOBAL ROUTINE FDLSSLINE_PARSED = 


-1984 
-1984 


73:39:95 


VAX-11 Bliss 
DISKSVMSMAST 


Called by the parse tables it in turn 
calles the appropiate routines to parse the fdl Line. 


3 
R 


2. v4.0 


:CFOL 


she’ 
« SRC JFDLPARSE .B32 
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age 
39 
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dD 6 
AX-11 FOL Utilities 16-Sep-1984 01:50: VAX-11 Bliss-32 v4.0-74 P 5 
NE _PARSED a at 1 93:39:08 DIEKSVMGMASTER CEDL Sec SFDLPARSE 832047" Ry 
5 
36 } If we have processed some really bad stuff then dont bother 


38 if -FDLSAB_CTRL C FOLSV_STATUS J EQLU STSSK_ERROR 
RETURN .STATUS; 


1 
1 
1 
1 
1 
1 


If this is an EDF call then Let them process the command 
if -FDLSAB_CTRL C FDLSV_PCALL J 
STATUS = (.FDLSGL_PCALL)() 


Clear new primary in case it was set 
FDOLSAB_CTRL C FOLSV_NEWPRI J] = _CLEAR; 


v 
L 
1 
1 
1 
1 
1 
1 
1508 
1204 
; 05 
: 07 ELSE 
; 09 } If this is a primary only or Line comment call ignore it 
1 iy iF NOT ( .FDLSAB_CTRL C FDLSV_NEWPRI J] OR .FDLSAB_CTRL C FDLSV_LINECMT ) ) 
: 1§ CASE vee, Sees FROM FOLSC_ACCESS TO FOLSC_TITLE OF 
1215 
; 18 {C FDLSC_ACCESS J] : SET_ACCESS_P(); 
: C FOLSC_ACL J : SET_ACL_P(); 
; 31 C FDOLSC_AREA] : SET_AREA_P(); 
: ¢ C FDLSC_CONNECT ] : SET_CCNNECT_P(); 
: : C FDOLSC_DATE ] =: SET_DATE_P(); 
: : C FOLSC_FILE J =: SET_FILE_P(); 
! 4 C FOLSC_JNL J =: SET_JNL_P(); 
; , C FOLSC_KEY J] : SET_KEY_P(); 
: § C FOLSC_RECORD J : SET_RECORD_P(); 
! r C FDLSC_SHARING ] : SET_SHARING_P(); 
1 36 { INRANGE J : O; ' Catch all for non usefull 
: 38 ! primaries 
1 3 TES; 
1240 
1543 
1348 
: $? RETURN .STATUS 

1 rh END; 


SEL. eee re nen ee ee Ae TOE EO 


é 
| FOLPARSE VAX-11 FOL Utilities 1hese -1984 01:50: VAK-11 Bliss-32 V4.0-74 Page 1 
+ LINE _PARSED 12-808-1 obec 9339: 08 DLEKSVMGMASTERSEI DL SRC SFDLPARSE 83264" Bo 
000¢ .ENTRY FDLSSLINE_PARSED, Save R2,R3 : 1139 
000000006 00 a5 MOV FDLSAB_CTRL, af : 
1 D MOV #1, STATUS + 119% 
02 63 ; CMPZV #0, #3, FOLSAB_CTRL, #2 + 1198 
BNE 1 : 
| OF 01 a3 ag ; £1 o0016 18 Bee #8. FDLSAB.CTRL#1, 28 : 1206 
- + f Py 
| 50 000000006 DO 0001 MOVL FDOLSGL_PCACL, RO 3 1306 
98 8 FB 000 CALLS #0, (RO) : 
dO 000 MOVL RO. STATUS : 
E 1 00 BRB 13§ : 
7A 63 0 £0 A 2% BBS #5, FOLSAB_CTRL, 13$ + 1211 
7E 01 A oi £0 000 5 BBS #1, FDLSAB-CTRL4+1, 15$ : 
Ot 1 000000006 00 CF 000 CASEL FDLSGL_PRIMARY, #1, #14 + 1213 
0076 00 $ 0027 oie 0038 3$ <WORD 4$-3$,= : 
0048 004 0039 003 004 5$-3$.- : 

005D 0054 076 00048 15$-3$,- : 

0076 0076 006F 0005 15$-3$.- : 
7$-3$,- : 
9$-3$.- : 
15$-3$,- ; 
10$-3$,- 3 
11$-3$.- ; 
12$-3$,- 3 
14$-3$,- 3 
Hs : 

00000000v 00 00 FB 00059 4s: CALLS #0, SET_ACCESS_P + 1216 
4F 11 00060 BRB 15$ : 

00000000v 00 00 FB 00062 5$: CALLS #0, SET_ACL_P : 1218 

46 11 0006 BRB 15$ ; 

00000000v 00 90 FB 9006 6$: CALLS #0, SET_AREA_P + 1220 
D 11 0007 BRB 15$ ; 

00000000v 00 00 FB 00074 7$: CALLS #0, SET_CONNECT_P : 1222 
4 11 00078 BRB 15$ : 

00000000v 00 00 FB 0007D 8s: CALLS #0, SET_DATE_P > 1224 

B 11 00084 BRB 15$ ; | 

00000000v 00 0 fe 0086 9$ CALLS #0, SET_FILE_P + 1226 
2 11 0008 BRB 15$ ; 

00000000v 00 0 FB OOO8F 10$ CALLS #0 SET_JNL_P + 1228 
19 11 009% BRB 15§ ; 

00000000v 00 00 FB 00098 11$ CALLS #0 SET_KEY_P > 1230 
10 11 O009F BRB 15$ ; 

00020000v 00 2 re OOA1 12$: CALLS #9 SET_RECORD_P > 1232 
07 (1 OOA8 13$: BRB 15§ ; 

00000000v 09 0 FB 0 AA 14$: = CALL #0 SET_SHARING P > 1234 

6 0 8A 00081 15$: BICB2 #32, FOCSAB_CTRC > 1243 

50 2 b0 00B4 16$: MOVL STATUS, RO > 1245 

4 00087 RET > 1247 


; Routine Size: 184 bytes, Routine Base: _FDLSCODE + 013C 
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| FOLPARSE VAX-11 FOL Utilities 16-Sep-1984 01 0 VAX=-11 Bliss-32 V4.0-74 P 17 
vos SET_AREA_P 187308-1 382 9) 33 8 DL SKSVMGMASTERSLEDL SRCTFDLPARSE 83204" (8) 
3 4 TSBTTL "SET _AREAP® 
: 4 ROUTINE SETLAREA_P : NOVALUE = 
i 
j ; Functional Description: 
83 : ; Fill in the blanks for the allocation xab 
‘] § Calling Sequence: 
i 
‘? 28 : set_area_p() 
45 60 ! Input Parameters: 
rs re: none 
48 e§ : Implicit Inputs: 
30 65 fdl$secondary = Secondary code 
2g €5 i Output Parameters: 
fe 
55 70 1 ! Implicit Outputs: 
3 4 7 nane os 
58 7 i Routine Value: 
59 74 none 
; 
i 
i 
i 
i 
i 
i 


Lab 4b-4b-4b-4b 4) 4) 4b 4b 4) 4h Ah ah ah ah ah al 


60 75 
61 Routines Called: 
oe 7 
6 78 allocate_xab 
64 79 
65 280 Side Effects: 
66 81 none 
67 S 
68 8 soe 
6 84 
286 BEGIN 
87 To aviod some duplication of code .... 


88 Find out if there is a current xab if not then get one 
OR If the current xab is not the same type or number of what we want 


' 

i 

then get a new one 

if ( IF .CURRENT_XAB EQLU 0 
THEN 1 


COOmey NNN NGS 
SS SSN ARAN =SS 


y N 
94 ELSE 
95 IF ( .CURRENT_XAB [ XAB$B_COD } NEQ XABSC_ALL ) OR 
1 ? nal ; CURRENT _XAB XABSB_AID ] NEQ .FDLSGL_PRINUM ) 
4 38 ELSE 0 ) 
THEN 
00 BEGIN 


SUS Ae 


} Allocate memory for the new xab 
ALLOCATE_XAB ( XABSC_ALL, .FDLSGL_PRINUM ); 
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' PAR VAK-11 FOL Utilities 18-56 -1984 01:50:0 VAX-11 Bliss-32 V4.0-74 Page 18 
Vose008 SET AREALP 12-808- 198 03:30:8 DI SKSVMGMASTERSLY DL SRC SFDLPARSE 83204" (8) 
: Set the area number in the xab 

CURRENT_XAB { XABSB_AID ] = .FOLSGL_PRINUM; 

! If this is area 0 then copy the allocation etc. from the fab (this 

' is because using areas overide the fab allocation and this 

makes it look Like it doesen't) 

IF «,CURRENT_XAB C X*B$B_AID ] EQLU 0 


BEGIN 


: Copy Allocation, Bucket size and Extention 


AS SSeS RS ST Ee 


; 1 

; 1 

; 1 

; 1 

; 1 

3 1310 

; : 1 

; 1338 

; 1314 

; 1315 5 

; ° 4 

; 1319 i 

; 1320 4 CURRENT_XAB [ XABSL_ALQ ] = .FDLSAB_PARSED_FAB [ FABSL_ALQ ); 
: 1321 4 CURRENT-XAB [ XABSB-BKZ ) = .FDLSAB-PARSED-FAB [ FABSB~BKS ): 
; 1328 4 CURRENT-XAB [ XABSW-DEQ ) = .FDLSAB-PARSED-FAB [ FABSW-DEQ ): 
; 1303 4 CURRENT-XAB { XABSLTALQ } = :FDLSAB-PARSED-FAB ( FABSL~ALQ J: 
; 610 1325 4 IF _.FDLSAB_PARSED_FAB [ FABSB_BKS J NEQU 0 

; 61¢ , 4 ciel DU SAB=AREA-8KZ [ 0 ] = .FDLSAB_PARSED_FAB [ FABSB_8KS J 
; 614 1309 FDLSAB_AREA_BKZ C 0 J = BU*KET_DEFAULT; 

; eis : 1 : Also get the duplicated contigous options: 

; oi8 : 33 2 Contigous best try 

; 620 1335 4 if <FDLSAB_PARSED_FAB { FABSV_CBT J 

; 632 3 4 CURRENT_XAB { XABSV_CBT ] = _SET; 

; 624 39 4 ! Cont igous 

: 626 1341 4 iF .FDLSAB_PARSED_FAB C FABSV_CTG J 

; 627 1 $5 4 THEN 

; : : : oi ? CURRENT_XAB C XABSV_CTG J] = _SET 

; rH 1345 4 END 

3 63) ' ré ELSE 

; : § : : Count this area 

> 635 1350 HIGHEST_AREA_NO = .HIGHEST_AREA_NO + 1 

; 636 1351 

Of eB hen 

; o2 : $e Set the fields in the area xab 

; 64 1356 CASE .FDLSGL_SECONDARY FROM FDLSC_ALLOC TO FDLS$C_VOLU OF 

; ec$ 1358 {C FDLS$C_ALLOC ) : CURRENT_XAB [ XABSL_ALQ ) = .FDLSGL_NUMBER; 

; 645 1360 C FDLSC_BTCONT J: CURRENT_XAB C XABSV_CBT ) = .FDLSGL_SWITCH; 


Be ee Be Oe Be Oe Be Be Be Se Be Be Se Be Se Se Se Se Se Se Se Se Se Se Se SH Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Oe Se Se Se Se Se Seas 


—$ es 


| H 6 
FOLPARSE VAX-11 FOL Utilities 16-Sep-1984 01:50: VAX-11 Bliss-32 V4.0-74 Page 19 FDI 

106-000 SET_AREA_P 12786871383 93339:98 DLSKSVMGMASTER CT DL SRCSFDLPARSE .B3207% (8) v0 
; $47 ' 3 C FOLSC_BKT J) =: BEGIN 3 | 
; ec 1 : CURRENT_XAB { XABSB_BKZ ) = .FDLSGL_NUMBER; $ 
; 691 1366 ! FALL in the table for figuring fill numbers Latter 5 | 
; ? 5 : | FDLSAB_AREA_BKZ C .FDLS$GL_PRINUM ] = .FDLSGL_NUMBER : 
; 695 1370 END; | 
; 6 ; | C FDLSC_CONTG ] : CURRENT_XAB C XABSV_CTG J] = .FDLSGL_SWITCH; : | 
; 639 i C FOLSC_EXACT J : CURRENT_XAB C XABSV_HRD ) = .FDLSGL_SWITCH; | 
; rod : C FOLSC_EXTND J] : CURRENT_XAB C XABSW_DEQ ] = .FDLSGL_NUMBER; 2 
; £08 1 C FDLSC_POSI J : CASE .FDLSGL_QUALIFIER FROM : | 
; poe) : S at FDLSC_ANYPOS TO FDLSC_VIRPOS OF i | 
; 666 1381 C FDLSC_ANYPOS J : CURRENT_XAB [ XAB$V_ONC J] = _SET; 2! 
; 668 : 58 C FDLSC_CLUSPOS ] : CURRENT_XAB [ XABSV_ONC J] = _SET; 3 | 
; 670 1385 C FDLSC_CYLPOS ] : BEGIN :) 
3; 671 1 86 CURRENT_XAB [ XABSB_ALN J] = XABSC_CYL; 2 | 
; ore 138 CURRENT_XAB C XABSL_LOC J = .FDLSGL_NUMBER i 
: She 1389 mee 3 | 
; 675 1390 C FDLS$C_FIDPOS ] : BEGIN : | 
; 676 1391 CURRENT_XAB [ XABSW_RFIO ] = .FDLSGL_FID1; § 
3 677 1398 3 CURRENT_XAB C XABSWIRFI2 ] = .FDLSGL-FID2: : 
; 678 139 CURRENT-XAB C XABSWIRFI4 J = .FDLSGL~FID3 B 
(oe OK sn : 
: 681 1396 C FDLSC_FNMPOS J : BEGIN | i] 
; rey. 1397 FIND 1D(); : | 
; 68 1398 CURRENT_XAB [ XABSW_RFIO ] = .FDLSGL_FID1; | 3 | 
3 684 1399 CURRENT_XAB ( XABSWIRFI2 ) = .FDLSGL~FID2; 2 
; 685 1400 CURRENT-XAB C XABSWIRFI4 ] = .FDLSGL-FID3 ; 
ae) 1601 END; 3 | 
: 688 1208 { FDL$C_LOGPOS J : BEGIN ; 
3 689 1404 CURRENT_XAB { XABSB_ALN ] = XABSC_LBN; 3 
; 690 1405 CURRENT_XAB C XABSL_LOC J = .FDLSGL_NUMBER : 
igs : : 
; o38 1608 C FDLSC_NOPOS J] : CURRENT_XAB C XABSB_ALN J] = _CLEAR; : 
: 695 1410 {C FDLS$C_VIRPOS } : BEGIN ; 
; 6% 1411 CURRENT_XAB { XABSB_ALN ] = XABSC_VBN; 3 
; 697 Fd CURRENT_XAB C XABSL_LOC J = .FDLSGL_NUMBER 3 
; 698 141 END; : 
2: et - ; 
: 701 1416 { FOL$C_VOLU ) : BEGIN 3 
3 4 tt CURRENT_XAB C XABSW_VOL ) = .FDLSGL_NUMBER; : 
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VO%~000 SET_AREA_P 12-88-1382 93:39:98 SIEKSVMGMASTERSCY DL Sac SFDLPARSE 83264" BS 
; r : 1438 : If the guy didn't give any placement do it for him : 
3 f 1? 1 if -CURRENT_XAB C XABSB_ALN J EQLU _CLEAR : 
; f 16 5 CURRENT_XAB C XAB$B_ALN ) = XABSC_LBN; : 
: 710 1425 END; : 
: 711 1058 3 
: ar} 14 TES; ; 
; 71 \os8 3 
: 714 14 RETURN ; 
; 715 1430 3 
: 716 1431 END; : 
OOFC 00000 SET_AREA_P: ; 
“WORD Save R2,R3,R4,R5,R6,R7 : 1249 ; 
57 000000006 00 9E 00002 MOVAB FDL$AB_AREA_BKZ, R : | : 
26 000000006 00 9€ 00009 MOVAB FDLSGL-SWITCTH, R6 : : 
55 000000006 00 9€ 00010 MOVAB FDLSGL-PRINUM, R5 : ; 
54 000000006 99 9E 00017 MOVAB FDLS$GL-NUMBER, R4 : : 
53 00000000' 9 9 O001E MOVAB CURRENT_XAB, R3 ; : 
50 63 DO 0002 MOVL CURRENT-XAB, RO : 1292. : 
0D 13 00028 BEQL 1$ : ; 
14 60 91 0002A CMPB (RO), #20 : 1295 : 
08 12 0002D BNEQ : ; 
65 17 ad 08 00 FD 000¢F CMPZV #0, #8, 23(RO), FDLSGL_PRINUM : 1296, : 
58 1 990 5 BEQL : ; 
65 DD 00037 1$ PUSHL FDLSGL_PRINUM > 1304 : 
14 DD 00039 PUSHL #20 : : 
00000000v 00 08 FB 0003 CALLS #2, ALLOCATE_XAB : : 
51 63 DO 0004 MOVL CURRENT _XAB,~R1 : 1308 : 
17 Al 65 90 0004 MOVB  FDLSGL_PRINUM, 23(R1) : : 
41 12 00049 BNEQ 5$ > 1314 : 
50 000000006 00 D0 0004 MOVL FDLSAB_PARSED_FAB, RO : 1320. : 
10 Al 10 AO 00 0005 MOVL 18(R0), 16(R1) : : 
16 Al 3E ad 90 0005 MOVB 62(RO), g3(R1) : 1321) : 
14 «Al 14 ad B0 0005C MOVW  20(RO), 20(R1) > 1322) : 
10 Al 10 AQ DO 00061 MOVL 16(RO), 16(R1) > 1323. : 
52 6 p 0066 MOVL FDLSAB_AREA_BKZ, R2 : 1327 : 
3E =A 0069 TSTB $2(RO) : 1325) : 
06 13 0006C BEQL $ ; 3 
62 3E Ad 90 000 : MOVB $2(RO), (R2) : 1327) : 
0 11 000 BRB $ ; : 
2 90 00074 2%: MOVB #2, (R2) ; 1339 : 
a 0077 3$: BBC #5. 6(RO), 4$ + 1335. 3 
0 88 0007¢ BISB2 #32, 8(R15 : 1337 ; 
4 a 9 80 4$ BBC #4, 6(RO), 6$ > 1341 : 
F 88 BISB2 #128, 8(R1) > 1343. F 
03 11 OO08A BRB fh : 1341. : 
As 96 99 C 5$: INCB  =HIGHEST_AREA_NO : 1350 : 
00 CF OO08F gs: CASEL FDLSGL_SECONDARY, #27, #7 : 1556) 3 
1 0097 7$: . WORD -7$,= : : 
3E 009F 9$-7$,- ; : 
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MT MO Mate Me 60 
oo OO OOMOM OO 
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01 


, FDLS$AB_AREA_BKZ, RO 


» #7, #1, 8B(RO) 
- #0, #1, 8(RO) 


RO 
._RO 
UMBER, 20(RO) 
ALIFIER, #0, #7 


WITCH 


CURRENT_XAB, RO 
WITCH 


$ 
CURRENT _XAB 


5 
Q 


(RO) 


CURRENT _XAB 


L$GL_PRINUM 


2a- ae 
Vutec 


FDLSGL_ 
FDLSGL_ 
FDLSGL_ 


50 
50 
14 AO 
00 000000006 
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01 


im «wor aver 
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SUDO OC — 4 OCOODDOOO— ASeOSSS 
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wWOMOOOOCO 


00000000v 


T_XAB, RO 


FDLS$GL_NUMBER, 12(RO) 


228: 


wooowt woow 


09 


Vox O08” Wie 1$-820-1384 93:39:98 | Maha PeR chor skCSeoLparse.03204%° «85. 


04 146 3; 1378) 
38 3 1 248: MOVL CURRENT_XAB, RO 3 1617 

OA A 4 1 MOV FDL SGL_RUMBER, 10(RO) : 
09 Ad 1 TSTB =—-9(RO) ; 1421) 
4 1 01 BNEQ 25$ : 
09 a0 2 90 00158 MOVB #2, 9(RO) : 1423, 
04 OO15F 25$: RET 3; 1431. 

; Routine Size: 352 bytes, Routine Base: _FDLSCODE + O1F4 
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FDLPARSE VAX-11 FDL Utilities ibese -1984 01:50:0 VAX-11 Bliss-32 V4.0-74 Page 23 FD 
v04-000 SET_DATE_P 12-Sep-19 4 03:30: NIEKSVMGMASTERSLEDL SRC TFDLPARSE 832047 (33 vO 
; 718 14 3 1 ZSBTITL "SET_DATE_P* 
; 719 14 1 ROUTINE SET_DATE_P : NOVALUE = 
; 720 1434 1 !4¢ 
; 721 1435 1! . 
: f ¢ 1° § ! Functional Description: 
3: 724 14358 1! Fill in the blanks for the revision date and time xab 
3 fe 1439 1! 
; 726 1440 1 ! Calling Sequence: 
3s ee? 1441 1! 
; 728 1208 1! set_date_p() 
s 2 1445 1! 
; 750 1444 1 ! Input Parameters: 
; «731 1445 1! 
: ree 1446 1! 
; 73 1447 1°! Implicit Inputs: 
3; «734 1448 1! 
s i 1449 1! fdl$secondary - Secondary code 
s 1% 1450 1! 
; 737 1451 1 ! Output Parameters: 
; 738 1026 1! none 
; 739 1453 1! 
; 740 1454 1°! Implicit Outputs: 
3 741 1455 1! none 
3; 74 1456 1! 
s 76 1457 1 ! Routine Value: 
; 744 1458 1! none 
: 745 1459 1! ' 
; 746 1460 1 ! Routines Called: 
: 747 1461 1! A 
3; 748 106 1! sys$bintim 
: 749 1463 1! 
3 750 1464 1 ! Side Effects: 
s 751 1465 1! none 
. rae 1466 1! 
; 733 1467 1 !-- 
: 754 1468 1 
; 755 1469 2 BEGIN 
; 756 1470 2 
; 757 1471 2 ' See which xab we need 
; 758 1472 2 : 
; 759 1473 2 IF .FDLSGL_SECONDARY EQLU FDLSC_REV 
; 760 1474 THEN 
; 761 1475 BEGIN 
: 76 1476 bee 
r oe? tA 3 If the revision xab has not been connected then connect it 
; 765 1479 IF .REVISION_XAB EQLU 0 
: 766 1480 THEN ; 
: 767 1481 aon ‘ : 
: pee 186 Allocate the xab an enter it into the chain 
: 770 1484 REVISION_XAB = ALLOCATE_XAB ( XABSC_RDT, 0 ) 
3; 771 1485 
. Fr 1656 END 
; 77 1487 ELSE 
3 774 1488 
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rc- CF — 
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TES; 
RETURN 


END; 
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VAX-11 FDL Utilities 16-Sep-1984 VAX-11 Bliss-32 V 
SET_DATE_P 14- ets 9}: 39: 98 DISKSVMSMASTER: ae 
1088 } If the date xab has not been allocated then get one 
1491 IF .DATE_XAB EQLU 0 
136 ie 
148¢ Allocate the xab an enter it into the chain 
1496 DATE_XAB = ALLOCATE_XAB ( XABSC_DAT, 0 ); 
1038 ! Fill in the correct field 
1200 CASE .FDLSGL_SECONDARY FROM FDL$C_BACKUP TO FDLSC_REV OF 
1206 C FDLSC_BACKUP J]: BEGIN 
150 DATE_XAB f XABSL_BDTO = .FDLSAL_DATE_TIME f 0 di 
1504 3 DATE- _XAB XABSL~ _BDT4 = .FDLSAL— DATE “TIME 1 
1505 END; 
1506 
1507 C FOLS$C_CREAT ] : BEGIN 
1508 ; DATE_XAB f XABSL_CDTO ] = ett $SAL_DATE_TIME C 0 ]; 
1509 DATE_XAB C XABSL_CDT4 J] = .FDLSAL_DATE_TIME C 1 J 
1510 2 END; 
1511 2 
I3N¢ 3 C FOLSC_EXPR J] : BEGIN 
151 3 DATE_XAB C XABSL_EDTO J = .FDLSAL _DATE_TIME f 0]; 
1514 3 DATE- _XAB C XABSL~ -EDT4 J = -FDLSAL— DATE “TIM E 1.2 
1515 2 END; 
1516 2 
1517 3 C FDLSC_REV ] =: BEGIN 
1518 3 REVISION_XAB C XABSL_RDTO J = -FDLSAL_DATE_TIME f 33 
1519 3 REVISION_XAB C XABSL_RDT4 J = .FDLSAL_DATE_TIME , 2 
1520 2 
1521 2 
1522 2 
1523 2 
1524 2 
1525 2 
1526 1 


END; 


00000047 


04 


003C 00000 SET_DATE_P: 


» WORD 
55 000000006 00 9€ 00002 OVAB 
54 00000000v 00 9%E 00009 MOVAB 
53 00000000* 00 9€ 00010 MOVAB 
8F 65 01 00017 CMPL 
11 ig 001 BNEQ 
04 A3 D 8 TSTL 
19 12 000 BNEQ 
7E 1€ 7D 00025 MOVa 
64 9¢ Fe 8 8 CALLS 
A3 DO 00028 MOVL 
43 11 Q002F BRB 
63 D5 00051 1$ TSTL 


e R2,R3,R4 
Po Soe SECONDARY, R5 
ALLOCATE_XAB, R4 
ATE_XAB> . 
PDLSGL a a #71 
REVISION_XAB 

#30, -(SP) 

» ALLOCATE_XAB 
R ; REVISION-XAB 
DATE_XAB 


Bie sRCS 
L.SRCJFDLPARSE. 832; r 
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FOLPARSE 
/ V04-000 


TE_TIME, R2 
TIME+4, R1 
ADARY, #68, #3 


K 
DATE 
SECO 


03 00000044 


0020 


002C 
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04 
_FDLSCODE + 0354 


141 bytes, Routine Base: 


; Routine Size: 


mm, 


? 
op weiitees feral A ME 


“w< 


4.0-74 P 6. 
i see SFOLPARSE 032047" «104 
: NOVALUE = 


Functional Description: 
Fill in the blanks for the journal xab 
Calling Sequence: 


— 2 


“ 


set_jni_p© 
Input Parameters: 
none 


Implicit Inputs: 


fdl$secondary - Secondary code 


WN (OO OONAUNE WT “OOOO 


Output Parameters: 
none 


Implicit Outputs: 
none 


SSoSSC SSS 


Routine Value: 


MEW SO ODNOAUE WN 0 ODNOAU EWN OCD 


eS re eee 


5 
: 
H 
ae? é none 
41 i 
ecg 5 Routines Called: 
84 5 y 
bcs : none 
4 Side Effects: 1 
Bc? 3 none 
rk 3 | : 
$50 5 
B3¢ é BEGIN 
35 2 If the xab has not been connected, then connect it 
835 368 IF -JNL_XAB EQLU 0 
837 $70 : Allocate the xab and enter it into the chain 
59 37¢ JNL_XAB = ALLOCATE_XAB ( XABSC_JNL, 0 ); 
1 378 Fill in the correct field 
‘ ’ CASE -FDLSGL_SECONDARY FROM FOLSC_AFTIM TO FDLSC_RU OF 
B65 sr C FOLSC_AFTIM } =: JNL_XAB C XABSV_AI J] = .FDLSGL_SWITCH; 
3 0 { FOLSC_AFTNAM ] : BEGIN 
+34 : § Allocate a buffer for the string and copy to it 


' $3 
wv 
M 

| 

| 
es 
= 


wu 


OOO 


SESSSSESSS 


Seee 


Zé 


5 


ZEE : 


1 
; 1 
; 1 
; 1 
; 1 
: 1 
; 1 
; 1 
: 1 
: 1 
; 1 
;: 1 
; 1 
; 1 
: 1 
: 1 
: 1 
. eas 1 
: 1 
; 890 1 
: 91 1 
: 9 1605 
: 89 iene 
; 8946 160 
; 895 1608 
3 £98 1609 
; 89 1610 
; 898 1611 
: 899 at 
; 900 161 
; 901 1614 
3 308 1615 
: 90 1oi8 
; 9046 161 
; 905 1618 
3 poe 1619 
; 90 1620 
; 908 1621 
: 909 16 § 
; 910 16 
; «911 1624 
3 at 1625 
; 91 16 $ 
; 916 16 
3; «915 1628 
3 318 1629 
3 «6 1630 
; 918 19e) 
; 919 16 4 
: 920 16 
; 921 16 
; 9 4 1635 
; 9 16 
3; 9246 16 
; 925 16 3 
; § $ 16 
; 9 1640 


1 

NL 
{ FDOLSC_AUDIT } 
{ FDLSC_AUDNAM J 
{ FOLSC_BEFIM } 
C FDLSC_BEFNAM } 
C FOLSC_RU } 


eae 4 01:50:08 vAKeTI Btiae=32 40-74 


INL _XAB f XABSL_A 
“FDLSSGET_vat SAB. STRING C DSCSW_LENGTH J ); 


CHSMOVE ( -FDLSAB_ STRING DSC$W_LENGTH ] 
-FOLSAB-STRING LC DSCSA-POINTER J, 
-JNL_XAB C KABSL_AIA J7); 


JNL_XAB C XABSB_AIS J = 
nome -FOCSAB_ STRING C DSC$W_LENGTH J 


: JNL_XAB C KABSV_AT ] = .FDLSGL_SWITCH; 
: BEGIN 


Allocate a buffer for the string and copy to it 


JNL. XAB C XABSL_ATA ] = 
“FOLSSGET_vaT "PDL SAB. STRING C DSC$W_LENGTH J ); 


CHSMOVE ( -FDLSAB. STRING [ DSCSW_LENGTH ] 
FDLSAB~ STRING DSCSA- POINTER 4, 
-JNL_XAB C XKABSL_ATA J~); 


JNL_XAB C XABSB_ATS ] = 
ia FDCSAB, STRING C DSC$W_LENGTH J 


: JNL_XAB C XABSV_BI J = .FDLSGL_SWITCH; 
: BEGI 


N 
; Allocate a buffer for the string and copy to it 


JNL_XAB_C XABSL_BIA ] = 
“FOLSSGET ie tPDLSAB. STRING C DSC$W_LENGTH ] ); 


CHSMOVE( =. FDLSAB_STRING C DSC$w_ LENGTH j 
FDLSAB~STRING Ds¢ SA-POINTER J, 
-JNL_XAB C KABSL_BIA J7); 


JNL_XAB C XABSB_BIS ] = 
ae -FOCSAB_ STRING C DSC$W_LENGTH J 


: BEGIN 


! Set the recovery unit bit according to what 
: was specified 


JNL_XAB [ XABSV_RU J = 
JNU"XAB € XABSV7ONLY_RU™ ARi EAR; 
JNUL-XAB C XABSVZNEVER_RU ) = tEeAR: 


IF .FDLSGL_QUALIFIER EQLU FDLSC_IF_IN 
JNL_XAB C XABSV_RU J = _SET 


EL Fuse IF .FOLSGL_QUALIFIER EQLU FDLSC_NEC 


RCIFDLPARSE. 832: 7 9485 


ccs ka a a Ra - 


. 7 
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JNL_XAB C XABSV_ONLY_RU ] = _SET 
ELSE IF .FOLSGL_QUALIFIER EOLU FOLSC_NEVER 


HEN 
JNL_XAB C XABSV_NEVER_RU J = _SET; 


Fe 
s 
: 


Mew 


END; 


FSS SSSI S55 


WO OONOUS wr 1 


TES; 
RETURN 
END; 


—* —s —s 4» +» _» _d _» —_» _» + _» _a 


Se Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge 
LOSS CCCOCCCCOCS 
AAO 


oO 


wn" 


YFFC 00000 SET_JNL_P: 


WORD Save R2,R3,R4,R5,R6,R7,.RB,RI,R10,R11 : 1528 
5B 00000000" 99 9E 00002 MOVAB FDLSSGET_VM, R11 : 
SA 900007 406 0 9€ 00009 MOVAB FDLSGL_SQITCH, R10 ; 
59 900¢ 0 0’ 00 9 0010 MOVAB JNL_X : 
58 000000006 00 H 9001 MOVAB FDLSAB STRING, R8 ; 
69 D 93 TSTL JNL_XAB 3 1568) 
0D 12 000 BNEQ : 
7E 22 70 900 é MOVO #34, =(SP) : 1572 
00000000v 00 02 FB 000 CALLS #2, ALLOCATE_XAB F | 
69 50 00 0002¢ MOVL RO, JNL_XAB : 
2 69 DO O002F 18: MOVL §§ JNL_XAB> R2 : 1578. 
96 00000070 8F 000000006 00 CF 00032 CASEL FDLSGL_SECONDARY, #112, #6 : 1576. 
003A 00 0015 0008 OO03E 2%: <WORD  3$-2$,- ; | 
007D 005 005 00046 4$-2$,- ; 
5$-2$,- 3 
6$-2$.- ; 
7$-2$.- : 
ai : 

08 A2 01 03 6A FO 0004¢ 3$ INSV  FDLSGL_SWITCH, #3, #1, 8(R2) : 1578. 
7E 6 ge Mita 4$ MOVZWL FDLSAB_STRING, -(SP) : 1585 | 
6B 1 FB 0056 CALLS #1, FDCSSGET_VM : 

18 «OA 0 p 0059 MOVL RO. 24(R2) ; 
3 68 ¢ 9005p MOVZ2WL FDLSAB_STRING, R7 > 1587 
0 06 a& D MOVL  FDLSAB"STRING*+4, RO : 1588 
56 9 0064 MOVL JNL_XAB, R6 ; 1589 
18 B86 60 7 0067 MOVC3 R7,~(ROS, a24(R6) ; | 
16 Ab 7 006¢ MOVB 7. 20(R6) : 1592. 
04 000 RET : 1591 
08 A2 01 04 6A FO 9071 5$ INSy FDLSGL_SWITCH, #4, #1, 8(R2) > 1595. 
7E 68 e Mie 6$ MOVZWL FDLSAB STRING. -(SP) > 1601 
9} FB 0078 CALLS #1, FOCSSGET_VM 3 
20 A p 007 MOVL RO. 32(R2) F | 
5 6 8 MOVZWL FDLSAB_STRING, R7 > 1603. 
20 06 AB D 90 MOVL  FDLSABTSTRING*+4, RO > 1604 
6 69 D 089 MOVL JNL_XAB, R6 ; 1605 


’ 
| FOLPAR VAX-11 FOL Utilities 16 $ep-1984 VAX-11 Bliss-32 V 
Voeoo8 SET_JNL_P 14- ~Sep-1 3b 93: 39: i DISKSVMSMASTER: ites She FDLPARSE. B32. r ab 
20 +86 60 7 movc3 , (RO), @32(R6) : 
1¢ =A 2} 60 1 nove e 28(R6) : 1608 
| 08 A2 01 02 6A FO 36 7$: Inv mse. SWITCH, #2, #1, 8(R2) + 1611 
7E 8 ge 90 8S: MOVZWL FDLSAB raNs 47 (5?) t 1617 
1 Fe A CALLS + £06 GET ; 
6 A MOVZWL FDCSAS. ST ain. R? + 1619 
4 0% 89 bd boone ROE — FDLSASTRING*G. RO : 1839 
10 86 66 ; B MOVC3 R7,~(ROS, a@16(R6) : 
OC Ab 7 B6 MOVB R7, 12(R4) + 1624 
4 OOOBA RET + 1623 
51 08 A € 00088 9$: MOV B(R2) Rt + 1631 
61 A 0008F BICB2 #35 + 1633 
9 000000006 § DO d0¢@ MOVL FOL $cu" QUALIFIER. RO + 1635 
1 D1 000C CMPL RO, A #19 : 
4 ff 00CC 10$ ; 
61 2 8 O00cE BISB2 #2, (R1) + 1637 
4 0000 RET ; 
14 50 D1 00002 108: CMPL = RO, ~-#20 + 1639 
04 12 00D BNEQ 1 : 
61 01 88 000D BISB2 #1, (R1) + 1641. 
04 OO0DA RET : 
15 50 D1 000DB 11S: CMPL RO, #21 + 1643 
iF O00DE BNEQ = ‘1 : 
61 0 88 00060 BISB2 #32, (R1) + 1645 
04 000E3 128: RET + 1653 
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ics 
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ae 


H 7 
vor~000" wy Retains WeaSEp=1984 $2:31519 — DISKSUMEMASTERSCFDL. SRCSFDLPARSE.B3201%" (135 v0 
1008 iF ‘ PARSED_FAB C FABSB_BKS ] = .FDLSGL_NUMBER; 
; } 5 HA 8 ! Stuff the bucket size into the array for latter 
: 1766 EDLSAB_AREA_BKZ C0) - .FDLSGL_NUMBER 
21 es oer 
; 19 ; 1766 C FDOLSC_CLUSIZ J: 0; 
19 5 1766 C FDLSC_FCTX ] +: PARSED_FAB C FABSL_CTX J] = .FDLSGL_NUMBER; 
3 19 5 1768 C FDLSC_CONT ] : PARSED_FAS C FABSV_CTG ] = .FDLSGL_SWITCH; 
: 10 5 1790 C FDOLSC_CIF ] =: PARSED_FAB C FABSV_CIF ] = .FDLSGL_SWITCH; 
1961 178 { FDLSC_DFNAM J : BEGIN 
: 1068 1774 ! Allocate a buffer for the string and copy it into it 
; 1068 ihe BARSED FAB C FABSL_DNA ) = 
; 1996 4444 FOLSSGET_VM(~.FDLSAB_STRING C DSCS$W_LENGTH J ); 
3 1068 1779 CHSMOVE( .FDLSAB_STRING [ DSC$W_LENGTH J 
1 RR cPRRSEDsiAs UvAesicowe aN 
; 1072 188 PARSED_FAB [ FABSB_DNS J] = 
; 1978 1784 ~" FDLSAB_STRING C DSC$W_LENGTH J 
ie se 
; 1076 1787 C FDLSC_DEFWRT J : PARSED_FAB C FABSV_DFW J = .FDLSGL_SWITCH; 
; 1078 1789 C FDLS$C_DOC J =: PARSED_FAB C FABSV_DLT ] = .FDLSGL_SWITCH; 
1980 1731 C FDLSC_DIR ] =: PARSED_FAB C FABSV_TMP ) = .FDLSGL_SWITCH; 
: 1088 1738 a POPOL SC_LObEL ] : PARSED_FAB C FABSV_EDL J = .FDLSGL_SWITCH; 
; 1088 1596 C FDLSC_EXTEN ] : PARSED_FAB C FABSW_DEQ ] = .FDLSGL_NUMBER; 
; 1087 1738 C FDLS$C_GBC ] =: PARSED_FAB C FABSW_GBC ] = .FDLSGL_NUMBER; 
; 1089 1800 C FDLSC_MTBLSIZ]: PARSED_FAB C FABSW_BLS J = .FDLSGL_NUMBER; 
: 1091 1808 C FDLSC_MTCP ] =: PARSED_FAB C FABSV_POS ] = .FDLSGL_SWITCH; 
; 1998 1804 C FDLSC_MTNEF )] : PARSED_FAB C FABSV_NEF }) = .FDLSGL_SWITCH; 
1095 i C FDLSC_MTPRO ) : SET_PROT(); 
; 1999 1808 C FDOLSC_MTREW ) : PARSED_FAB C FABSV_RWO ) = .FDLSGL_SWITCH; 
; 1098 130 C FDLSC_MTRWC ) : PARSED_FAB { FABSV_RWC J = .FDLSGL_SWITCH; 
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PIPDPPIRIPINI WWI NINA AEE PIPPIN PINPINUPIPINPIPIPUNININIWWI BB OBB BEE BE EP IInononerny 


ee dd wd dd od wd od 


tot -te4 


OnoOw 


C FDLSC_NFS J 
FDLS$C_ORG J 
FDLSC_OFP J 


FDL$C_PROT J} 


C 

C 

C 

C FOLSC_POC J 
C 

{ FOLSC_READC } 
C 


C FDLS$C_sao J 
C FOLS$C_SOC J 
{ FDOLSC_SUPER J 


Ser rduele Ott ittes ibs Sepn1984 12:31:19 DISKSVMEMASTERSLFDL. SRCSFDLPARSE.032¢4%" (133 
1 ! C FDLSC_MAXRECN]: PARSED_FAB C FABSL_MRN ) = .FDLSGL_NUMBER; 
g ! C FDLSC_MAXVER] : PARSED_FAB C FABSV_MXV J = .FDLSGL_SWITCH; 
5 1 C FOLSC_NAME ] : BEGIN 
! ; Check for non-null name string 
1 iF = -FDLSAB_STRING CDSCSW_LENGTH] NEQ 0 
BEGI 


N 
! Allocate a buffer for the string and copy it 


BARSED FAB C FABSL_FNA ) = 
FDLSSGET_VM(~ -FDLSAB.. STRING C DSC$W_LENGTH J ); 


CHSMOVE ( -FDLSAB_ STRING C DSC$W_LENGTH J 
-FOLSAB-STRING LC DSC$A-POINTER J, 
PARSED- FAB C FABSL_FNA J ); 


PARSED. ins { FABSB_FNS ) = 
END -FDLSAB_STRING C DSC$W_LENGTH J 


: PARSED_FAB C FABSV_NFS J] = .FDLSGL_SWITCH; 
: PARSED_FAB C FABSB_ORG ] 
: PARSED_FAB C FABSV_OFP ] = .FDLSGL_SWITCH; 
FDLSC_OWNER ) : 
: PARSED_FAB C FABSV_SPL ] = .FDLSGL_SWITCH; 
: SET_PROT(); 

: PARSED_FAB C FABSV_RCK ] = .FDLSGL_SWITCH; 
FDLSC_REVISN 2: 


-FDLSGL_QUALIFIER; 


SET_PROT(); 


BEGIN 

If the revision xab has not been connected then connect it 
if .REVISION_XAB EQLU 0 

THEN 


Allocate the xab an enter it into the chain 
REVISION_XAB = ALLOCATE_XAB ( XABSC_RDT, 0 ); 
REVISION_XAB C XABSW_RVN J) = .FDLSGL_NUMBER 
END; 


: PARSED_FAB C FABSV_SQO ) = .FDLSGL_SWITCH; 
: PARSED_FAB C FABSV_SCF ] = .FDLSGL_SWITCH; 
: PARSED_FAB C FABSV_SUP } = .FDLSGL_SWITCH; 


7 
FOLPARSE VAK-11 FDL Utilities 1b-s ep- 0: VAX-11 Bliss-32 V 
+ SET_FILE_P eaeea fake SSi8hi9S | Peek eAlS teacher sec Srocpanse. a3208 135 
311 1869 : 
; 1188 : ty C FOLSC_TEMPO J] : PARSED_FAB C FABSV_TMD ) = .FDLSGL_SWITCH; ; 
; 1161 , C FDLSC_TOC ] =: PARSED_FAB C FABSV_TEF J = .FDLSGL_SWITCH; ; 
; 1168 rs C FDOLSC_UFO ] =: PARSED_FAB C FABSV_UFO J = .FDLSGL_SWITCH; 3! 
; 1165 , C FDLSC_WIN ] : PARSED_FAB C FABSB_RTV J = .FDLSGL_NUMBER; 5} 
; 116? : z C FDLSC_WRITEC J: PARSED_FAB C FABSV_WCK J] = .FDLSGL_SWITCH; 
HB BR ts 
; 1171 188 RETURN 
: 1498 1884 1 END; 
ee Soe hea, oe Save R2,R3,R4,R5,R6,R7,R8B,RI,R10,R11 1699 
rs a e oe e ° } 
58 000000006 00 9€ 00002 HOVAB -FDLSAB_STRING, R11 : | 
5A 000000006 00 9€ 00009 MOVAB FDLSGLNUMBER, R10 : 
59 000000006 00 4 00010 MOVAB FDLS$GL~ =SWITCH RO : 
56 000000006 00 D0 00017 MOVL §FDLS$AB~PARSED FAB, PARSED_ FAB t 1742) 
57 000000006 00 DO OO01E MOVL FDLSGL “SECONDARY. R7 : 1746. 
00000048 8F 37 D1 90025 CMPL : 1748 
10 A6 6A D0 000 MOVL § FDLSGL_NUMBER, 16(PARSED_FAB) : 
00000049 = &F 57 01 Mike 1$ CMPL =e R77, #73 ‘ : 1752| 
06 if 0039 BNEQ : 
06 Ab 01 05 69 FO 00038 INSV FDLSGL SWITCH, #5, #1, 6(PARSED_FAB) : 
0000004A = &F 57 01 00041 2$ CMPL + 1754 
11 12 00048 BNEQ : 
50 6A 00 0004A MOVL FDLSGL_NUMBER, RO : 1756) 
3E =A 50 90 0004D MOVB RO, 62TPARSED FAB) 3 
51 000000006 00 00 00051 MOVL FDLSAB AREA_BRZ, : 1760 | 
61 50 90 00058 MOVE = RO, (RT) ; 
0000004c &F 57 01 0058 3$ CMPL A : 1766) 
04 fF 006 BNEO F 
18 Ab 6A D0 00064 MOVL FDLSGL NUMBER, 24(PARSED_FAB) : | 
0000004D = BF 27 D| 0068 4$ CMPL R7, #77 : 1768 | 
06 Ab 01 04 69 5 ita INSV FDL SG. SWITCH, #4, #1, 6(PARSED_FAB) : 
00000046E  8F 37 Di 0077 5$ CMPL R7, #78 : 1770 | 
07 Ab 01 1 é3 ig 0080 INSV FDLSGL SWITCH, #1, #1, 7(PARSED_FAB) : | 
0000004F  8F 37 p| 0086 63: CMPL ; V7? | 
7E 68 i2 O08F MOVZWL FDLSAB_STRING, -(SP) : 1777 
00000000v 00 9} FB 93 CALLS #1, FOCSSGET_VM 3 | 
30 Ag 0 p 00 MOVL RO. 48(PARSED_FAB) : 
68 3¢ 0009D MOVZ2WL FDLSAB_STRING; R : 1779 
50 04 AB 06 OOA0 OVL FDLSAB pp RANgés > 1780 | 
30 B86 60 5 OOA4 MOVC3 RB, (RO) (PARSED. FAB) > 1781 


ee a -— 


Po, gee ems cece as Be Calc 9 9 NR 


Kk 7 

FDLPAR E VAX=11 FDL Utilities 16-Sep =1984 01 :$0:0 VAX-11 Bliss-32 V4.0-7 35 
V SET_FILE_P 14-Sep 2: DISKSVMSMASTER:CFDL. she FDLPARSE. B32. 13° 6135 
5 Ab 90 000A9 MOVB RB, 53(PARSED_FAB) > 1784 
00000086 BF :) D| i 7$ CPL RS: #80 . : 1787. 
06 Ab 1 5 $3 § 086 INSV FDLSGL SWITCH, #5, #1, 4(PARSED_FAB) : 
00000051 = &F 37 D1 te aS CMPL R7, WOT + 1789. 
05 Ab 01 7 é3 6 b9¢ INSV FDLSGL SWITCH, #7, #1, S(PARSED_FAB) : | 
00000052 BF 37 D1 00¢8 9$: CMPL R7, #82 : 1791) 
04 Ab 01 03 $3 6 0004 INSV FDLSGL SWITCH, #3, #1, 4(PARSED_FAB) : 
00000054 8F 37 D1 OODA 10$ CMPL R7, 8% : 1796 
16 AG oA 46 Goe§ MOVW FDLSGL NUMBER, 20(PARSED_FAB) : | 
00000055  8F 37 DI QO0E 118: HPL R7, #85 : 1798) 
3 
48 Ab 6A 46 000FH MOVW FDLSGL NUMBER, 72(PARSED_FAB) : | 
00000056 =F 37 D1 000F4 12$: CMPL R7, #86 ; 1800. 
3C AG SA BO Q00FD MOVW FDLSGL_NUMBER, 60(PARSED_FAB) : 
00000057 =F 37 Dt 90101 13$: cHPL R7 #87 > 1802. 
05 Ab 01 00 69 FO O010A INSV  FDLSGL_SWITCH, #0, #1, 5(PARSED_FAB) : 
00000058 8F 27 bt 90119 14$ cMPL R7, #88 ; 1804. 
05 Ab 01 02 69 FO 00119 INSV _ FDLSGL_SWITCH, #2, #1, S(PARSED_FAB) ; 
00000059 = BF 57 D1 OO11F 15$:  CMPL  R7, #89 + 1806 
07 12 00126 BNEQ 168 ; | 

00000000v 00 00 FB 00128 CALLS #0, SET_PROT ; 
0000005A = 8F 57 D1 O01 16$:  CMPL R77. #90 : 1808 

06 iF 00136 BNEQ 17 : 

04 Ab 01 07 69 FO 00138 INSV  FDLSGL_SWITCH, #7, #1, 4(PARSED_FAB) : 
00000058 =F 57 D1 00156 17$:  CMPL  R7, #9T + 1810| 

06 if 0014 BNEQ 18 : 
05 Ab 01 03 69 FO 00147 INSV  FDLSGL_SWITCH, #3, #1, S(PARSED_FAB) : | 
0000005C &F 57 D1 00140 18$ CMPL R7, #92 > 1812) 

04 12 00154 BNE : 

38 AG 6A 00 00156 MOVL § FDLSGL_NUMBER, 56(PARSED_FAB) : 
00000050 8F 37 D1 00154 19$: cHPL R? #93 ; 1814 
04 Ab 01 01 69 6 00163 INSV FDLSGL SWITCH, #1, #1, 4(PARSED_FAB) : | 
0000005E 8F 57 D1 00169 20$:  CMPL 49% > 1816 | 
50 bb 4¢ Oolys ROWE WL 726 STRING, RO 1819, 
18 i$ O15 ao ns ” . : 
50 DD 0017 PUSHL RO > 1825 

000g 88 BB Rigs AMES Ed REESE a | 
50 06 AB 0 0184 MOVL.  FDLSAB_STRING?4, RO 1828 | 
2c B6 60 68 ; 1 MOVC3 FDLSAB-STRING, (RO), 444 (PARSED_FAB) : 1809 | 
34 AG 8 0 0180 218: MOVB FDLSABSTRING. 52(PARSED_F > 1832. 
00000060 8F 37 D4 191 2$: cHPL RY #968 1835 
06 Ab 01 0 69 1s O19A INSV FOLSGL SWITCH, #0, #1, 6(PARSED_FAB) : 
00000062 8F 37 D4 O1A0 23$ CPL RY ; 1837 
1D 6 000000006 09 96 Oo1Ad MOVE —FDLSGL_QUALIFIER, 29(PARSED_F AB) ; | 
90000061 8F D1 001B1 248 CMPL > 1839. 


<7 
og 


7 
FDLPARSE VAX-11 FDL Utilities bese -1984 01:50: VAX=-11 Bliss=-32 V4.0-74 wa 36 
V 000 SET_FILE_P 127808- 1382 93:30:08 DISKSVMEMASTERSCY DL SRCSFDLPARSE 832097" (13% 
06 1 0188 BNEQ 25$ ; | 
07 «Ab 01 05 FO OO1BA INSV FDL SG. SWITCH, #5, #1, 7(PARSED_FAB) : 
00000063 =F , Dt 9100 25$: cHPL Rr 9 + 1841 
0000000v 00 99 FB 91¢9 CALLS i, SET_PROT : 
0000064 8F D1 00100 268:  CMPL  R7. #100 + 1843. 
06 if 0107 BNEG 278 : | 
05 A6 01 05 99 F 0109 INSV FDLSGL_SWITCH, #5, #1, 5 (PARSED_F AB) F 
00000065 &F 37 D} a0) 27$ CMPL Rr #101 + 1845) 
00000000v 00 99 FB OO1E8 CALLS #0, SET_PROT : 
00000066 =F D1 OIE 28$: CMPL  R7. #102 + 1847 | 
06 12 001F6 BNEQ 29$ : 
06 Ab 01 07 69 FO 001F8 INSV  FDLSGL_SWITCH, #7, #1, 6(PARSED_FAB) : 
00000067 = BF 3 Dt OO1FE 29$ CMPL Rr #103 + 1849 | 
00000000' 00 D5 00207 TSTL  REVISION_XAB : 1853) 
11 12 0020D BNEG  30$ : | 
7E 43 7D 0020F MOVQ #30, <(SP) + 1858. 
00000000v 00 02 FB 00 iF CALLS #2, ALLOCATE_XAB : 
00000000' 00 50 D0 0021 MOVL RO, REVISION-XAB ; | 
50 00000000' 00 DO 00220 30$ MOVL REVISION _XAB; R ; 1860 | 
08 a0 6A B80 00227 MOVW FDL$GL_NOMBER, 8(RO) : 
00000068 BF 37 Dt 30 : 31$ CPL A? #104 + 1864 
04 Ab 01 06 69 FO 00 34 INSV  FDLSGL_SWITCH, #6, #1, 4(PARSED_FAB) : 
00000069 =F 57 D1 0023A 32$: CMPL  =sR7, «#105 + 1866 
06 12 00241 BNEQ 338 ; 
05 Ab 01 06 69 FO 00243 INSV  FDLSGL_SWITCH, #6, #1, 5(PARSED_FAB) F | 
0000006A BF 57 D1 00249 338: CMPL  R7, #106 + 1868 
06 12 00250 BNEG  34§ ; 
04 Ab 01 02 69 FO 00252 INSV  FDLSGL_SWITCH, #2, #1, 4(PARSED_FAB) : | 
00000068 = BF 37 Dt o093t 34$: cHPL R? #107 ; 1870 | 
04 Ab 01 04 69 6 00261 INSV  FDLSGL_SWITCH, #4, #1, 4(PARSED_FAB) : 
0000006c BF 37 Dt 00267 35$: CPL RY #108 ; 1872) 
07 «Ab 01 04 69 FO 00270 INSV  FDLSGL_SWITCH, #4, #1, 7(PARSED_FAB) : | 
0000006D = &F 37 Dt 00276 36$: CMPL R? #109 ; 1874 
06 Ab 01 01 69 ig SOSeF INSV  FDLSGL_SWITCH, #1, #1, 6(PARSED_FAB) : 
QO000006E  8F 37 D1 00 85 37$: CMPL R? #1T0 ; 1876 
1C Ab 6A 96 00 8 MOV —FDLSGL NUMBER, 28(PARSED_F AB) ; | 
| Q000006F BF 37 pi 00996 38$: CPL RY #171 ; 1878 
05 Ab 01 01 69 i 00298 INSV  FDLSGL_SWITCH, #1, #1, 5(PARSED_FAB) 
04 002A1 39%: —sRET : 


1884 
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DOP- DRO WM TM OR. DHOOM MUM TMOR. DHOOM TNOR. DHOK UM TNOR DOOKUMTHNOR OOO 
EPP DODDDDDDDDEOAOAMPOPARPOCCOCSCCOCCCOC SR KR KF HK KK NNNNNNNNN CII 
NINN RU UCU CU CU CUCU CUCU CUCU CUCU CucuCUCusuCuCuCuCumuutuN 


be ee el el el el ee ce el ee el ee el el el en ce el ce ee ee eh ek eh el oe ee eh ce ee ee ee ee ee eh ee ee 


N 

CURRENT_XAB C_XABSL_KNM ] = FDLSSGET_VM ( 32); 

CHSCOPYT .FDOLSAB_STRING C DSC$W_LENGTH J 
-FDL$AB-STRING C DSCSATPOINTER J, 


SPACE, 32, 
ae .CURRENT.XAB C XABSL_KNM J] ) 


C FDLS$C_LAREA ] : CURRENT_XAB C XABSB_LAN ] = .FDLSGL_NUMBER; 
C FDLS$C_NULL ] : CURRENT_XAB C XABSV_NUL ] = .FDLSGL_SWITCH; 
C FOLS$C_NULLVALJ: CURRENT_XAB C XABS$B_NUL ] = .FDLSGL_QUALIFIER; 
C FOL$C_PROL ] : IF .CURRENT_XAB C XABSB_REF ) EQLU 0 
CURRENT_XAB C XABSB_PROLOG J = .FDLSGL_NUMBER; 


N 7? , | 
Mia os Ve=$ep-1984 12:31:19 DESKSUMMASTERSC DL SRCSFDLPARSE.832019" (135, 
308 THEN BEGIN 
44 
rf ALLOCATE_XAB ( XABSC_KEY, .FDLSGL_PRINUM ); 
‘? CURRENT_XAB C XABSB_REF J] = .FDLSGL_PRINUM 
$3 END; 
23 Set the key xab fields 
38 sAse -FDL$GL_SECONDARY FROM FDLSC_CHANGE TO FDLSC_SEGTYP OF 
2? C FDLSC_CHANGE J: CURRENT_XAB C XABSV_CHG ] = .FDLSGL_SWITCH; 
of C FDLS$C_DAREA J] : CURRENT_XAB C XABSB_DAN ] = .FDLSGL_NUMBER; 
2 C FDLSC_DFILL J : CURRENT_XAB C XABSW_DFL ] = .FDLSGL_NUMBER; 
C FDLSC_DATKC J] : CURRENT_XAB C XABSV_KEY_NCMPR J] = NOT .FDLSGL_SWITCH; 
C FDLSC_DATRC J] : CURRENT_XAB C XABSV_DAT_NCMPR J] = NOT .FDLSGL_SWITCH; 
C FOLS$C_DUPS ] +: CURRENT_XAB C XABSV_DUP J] = .FDLSGL_SWITCH; 
C FDLSC_IAREA ] : CURRENT_XAB C XABSB_IAN ] = .FDLSGL_NUMBER; 
: C FDOLSC_IDXC J] : CURRENT_XAB C XABSV_IDX_NCMPR J] = NOT .FDLSGL_SWITCH; 
C FOLSC_LIFILL J : CURRENT_XAB C XABSW_IFL ] = .FDLSGL_NUMBER; 
C FDLSC_KYNAME J: BEGI 
7 
9 


DWONOAO UE WN O OONAUE WN "OC VOONOUFSWR—Ow” 


DODO OO DOWOWDO OOO OOO OO OOOO OOO OOOO DODODOODOODOOODODOOOOODOOOOOOOOOOOVOO 
30 O00 0009 0000 00 09 09 09 09 SI SI ISIN IO OAAOAOOA OO = 


PIPIPIPONDPYNINININININIPYDPININININININI WANA NI AIAIDINIPINPIPONINIPYNININIPUNIPYPIPOPYPUNINPIPIPI NII WWW = 


0 

31 C FDLSC_SEGLEN J: CASE .FDLSGL_SECNUM FROM 0 TO 7 OF 

38 0 ] : CURRENT_XAB [ XAB$B_SIZO ) = .FDLSGL_NUMBER; 
9% 1] : CURRENT“XAB € XABS$B7SIZ1 } = .FDLSGL "NUMBER: 
95 é CURRENT-XAB f XABSB~S1Z¢ J = .FDLSGL NUMBER: 
% CURRENT-XAB ( XAB$BSI73 ] = .FDLSGL~NUMBER: 
97 i CURRENT-XAB [ XAB$B~SI24 ) = .FDLSGL-NUMBER: 
998 5 CURRENT-XAB { XAB$B7SIZ25 } = .FDLSGL-NUMBER: 


Be Be Be Oe Be Ge Oe Se Be Ge Be Se Be Se Se Se SH Se BS) Se SH Se BH Se SH Se SH Se Se Se SH Be SH Oe SH Se SH Oe SH Se SH Se See See Se ae Be ae teen Bees Fe aces 


FDLPARSE VAK-11 FDL Utilities yrs -1984 VAX-11 Bliss-32 V4. 
+ 3 SET _KEY_P att fi 93; 39: %§ DISKSVMSMASTER:CFDL. ORC SFDLPARSE. B32, ; 3) 
1 1 CURRENT_XAB ( XABSB_SIZ6 ] = .FDLSGL_NUMBER; 
:} $F res Ed: CURRENT— “TAB E Xabseosi Wis *FDLSGL-NUMB NUMBER; 
514 
; i C FDLSC_SEGPOS ): CASE ei: _SECNUM FROM 0 TO 7 OF 
31 5 : CURRENT_XAB { XABSW_POSO ] = .FDLSGL_NUMBER; 
31 : CURRENT-XAB [ XABS$W-POS1 ] = .FDLSGL-NUMBER; 
31 : CURRENT-XAB [ XABS$W-POS2 J = .FDLSGL-NUMBER;: 
31 8 : CURRENT-XAB [ XABS$W POSS J = .FDLSGL-NUMBER: 
31 009 : CURRENT-XAB [ XABSWPOS4 ] = .FDLSGL-NUMBER; 
51 10 : CURRENT-XAB [ XAB$W-POSS J = .FDLSGL-NUMBER;: 
51 1 : CURRENT-XAB £ XABSWPOS6 J = .FDLSGL-NUMBER: 
; ! Ore : CURRENT-XAB C XABSWIPOS7 J = .FDLSGL“NUMBER;: 
:14 014 
3 : 312 C FOLSC_SEGTYP J: a -FDLSGL_SECNUM FROM 0 TO 7 OF 
31 th C0): BEGIN 
: 1 O18 CURRENT_XAB [ XABSB_DTP J = .FDLSGL_QUALIFIER; 
: O19 CURRENT XAB C XABSB-TYPO J = .FDOLSGC_QUALIFIER 
:1 021 1] : CURRENT_XAB [ XABSB_TYP1 ) = .FDLSGL_QUALIFIER; 
3% 0 ¢ ¢ CURRENT_XAB [ XABSB_TYP = .FDLSGL_QUALIFIER; 
: 1 0 CURRENT-XAB ({ XABSB-TYPS ) = .FDLSGL-QUALIFIER: 
31 024 4 CURRENT-XAB C XABSB-TYP4 ) = .FDLSGL-QUALIFIER: 
51 025 5 CURRENT_XAB [ XABSB-TYPS ] = .FDLSGL—QUALIFIER: 
:1 0 6 ‘ : CURRENT-XAB EC XABSB-TYP6 ) = .FDLSGL QUALIFIER: 
31 0 : CURRENT-XAB C XABSB-TYP7 } = .FDLSGL-QUALIFIER: 
31 0 § TES; 
3 3 0 
3 1 030 TES; 
31 031 
31 0 é RETURN 
3 Y 0 
: 1 034 END; 
OFFC 00000 SET_KEY_P: 
.WORD Save R2,R3,R4,R5,R6,R7,RB,RI.R10,R11 : 1886 
58 90000 06 E 9000 MOVAB FDLS$GL_QUALIFIER. R11 ~ ; 
A G E 000 MOV FDLS$GL"SECNUM, FRton ; 
9 09 99 0G 9E 0019 MOV FDL$GL~PRINUM ; 
: 0 a — 0001 MOVAB CURRENT_XAB : 
99 909 G E OO1g MOVAB FDLSGL -Suitty, R? : 
6 00 06 9 9€ 000 MOVAB FDLSGLNUMBER ; 
2 6 p 002C MOVL CURR RRENT_XAB, R2 : 1926 
99 F BEQL ; 
15 6 91 00031 CMPB 3s (R2), #21 + 1940 
12 000 BNEQ 18 ; 
69 17 A2 08 9 FD 9 CMPZV #0, #8, 23(R2), FDLSGL_PRINUM + 1941 
C BEQL © 2 ; 
69 oD F 1$: PUSHL FDL SGL_PRINUM 7 1945 | 
15 DD 0004 USHL @ ; 
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00000000v 
17 


my 


01 67 

OA A2 66 

1c =A 66 

50 67 

06 50 

50 67 

07 50 

00 67 

08 A2 66 

5 ? 

0 0 

1A A2 66 

0 

00000000v 00 1 

38 =A 0 
51 000000006 

50 6 

61 secesorss 0 

8 8 


09 A2 66 
02 67 
15 A2 68 


FO poee 
g 00087 


be boost 
0 


4$: 
5$: 
6$: 
7$: 


15$: 
16$: 


be 12:31; 9 


CALLS 


VAX-11 Bliss-32 v4.0 


eu orate is 


een ae XAB, “RO 
er see TOR TRUM 23(RO) 
URRENT 


cu XAB, 
FD gl. SECONDARY, #119, #16 
4$ 
5$-3$.- 
$3 $,- 
$-3$,- 
$3.33 
10$-3$,- 
11$-3$,- 
12$-3$,- 
14$-3$,- 
13$- $,- 
15$-3$,- 
168- $,- 
17$-3$,- 
19$-3$,- 
$33-33-- 
9$-3$ 


FDLSGL_SWITCH, #1, #1 
FDLSGL_NUMBER, 10(R2) 
FDLSGL_NUMBER, 28(R2) 
FDLSGL_SWITCH, RO 


» 18(R2) 


RO, #6, #1, 18(R2) 
FDLSG _SWITCH, RO 
RO, #7, #1, 18(R2) 


FDLSGL_SWITCH, #0, #1, 18(R2) 
FDLSGL_NUMBER, 8(R2) 


FDLSG _SWITCH, RO 
RO, #3, #1, 18(R2) 


FDLSGL_NUMBER, 26(R2) 


- FD 
6 
FDLSAB 
CURREN 
FDLSAB 


wa 
at. we". 


FDLSGL_NUMBER, 9(R2) 
FDLSGL_SWITCH, #2, #1, 18(R2) 
FDLSGL_QUALIFIER, 21(R2) 


0-74 
DISKSVMSMASTER: CFDL.SRCJFDLPARSE. 832: ; 


» #32, #32, 56(RO) 
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SET 


0035 


th 
doze do 


2E 
2F 
30 
31 
32 
33 
BD 
35 


07 
OOTA 


00 
002E 00 


1€ 
20 
22 
24 
26 
28 
2A 
2c 


~~ & 


8 
1b-se -1984 01 
12-80-19 $3 
93 # 17$: TSTB 
ij BEQL 
FA RET 
FB 18S MOVB 
04 FF RET 
DO 00100 19% MOVL 
CF 1 CASEL 
107 20% WORD 
10F 
90 00117 21$ MOVB 
4 Bie RET 
0 1 228 MOVB 
4 001 RET 
0 00121 23% MOVB 
4 00125 RET 
0 00126 24$ MOVB 
8 O12A RET 
0 00128 25% MOVB 
4 0012F RET 
0 001350 26$ MOVB 
04 Bat RET 
90 00135 27$ MOVB 
04 00139 RET 
90 Bat A 28% MOVB 
04 001 RET 
DO OO13F 29% MOVL 
CF 00142 CASEL 
00146 30% WORD 
0014E 
0 00156 31$ MOV 
4 QO15SA RET 
0 3128 32$ MOV 
4 0015F RET 
0 00160 33$ MOV 
4 00164 RET 
BO 00165 34$ MOVW 
04 09169 RET 
0 bier 35$ MOV 
4 0016E RET 
0 gist 36$ MOVW 
4 00173 RET 
0 00174 37$ MOVW 
4 178 RET 
0 00179 38% MOV 
4 00170 RET 


fs" 
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FDLS 
FOLS 


RO, 
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GL_NUMBER, 72(R2) 
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ent #0, #7 
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1987 


2005 


; 2006. 
: 2007. 
; 2008 | 
; 2009 
: 2010 
: 2011. 


: $00 


| FOLPAR 


; Routine Size: 
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oes 


Bs 
41 A2 
42 A2 
43 2 
44 = A2 
45 A2 
46 A2 
47 =k 


449 bytes, 


Routine Base: 


50 


_FDLSCODE + 


16 ss 1 
16-Sep=1 


38 0195 41$: 
y B13. 

gs 19D 

0 OO19E 42%: 
Bs O1A 

0 OO1AS 438: 
ge O1A 

0 OO1A8 44$ 
eS ayy a 

0 OO1AD 45$: 
3 Bai 8) 

0 00182 46$: 
04 00186 
90 00187 47$: 
04 00168 
90 OO1BC 48$: 
04 001C0 


1:50: 
3be $2:39599 
4: FOLS 
CASEL A 
«WORD 41$- 
1$3- 
43$- 
44$- 
tas 
193 
a. 
MOVB RO, 
MOvVB RO, 
RET 
MOVB RO, 
RET 
MOVB RO, 
RET 
MOVB RO, 
RET 
MOVB RO, 
RET 
MOVB RO, 
RET 
MOVB RO, 
RET 
MOVB RO, 
RET 


65(R2) 
66(R2) 
67(R2) 
68(R2) 
69(R2) 
70(R2) 
71(R2) 


Bliss-32 V4.0-7 
MSMASTER: CFOL. SRC 


CSroLParse 03204 


£99 (135 


31 


018 | 
019 


2021. 
2022 | 
2023 
2024 
2025 
2026 | 


: 2027) 
: 2034 


el) 


F 8 
¥AX-11 FOL Utilities 16- 
SET_RECORD_P 14 
ZSBTTL. ‘SET_RECORD_P* 
ROUTINE SET_RECORD_P : NOVALUE = 


Functional Description: 


RESSAS 


Fill im the blanks for the fab fields concerning the record 
Calling Sequence: 

set_record_p() 
Input Parameters: 

none 


Implicit Inputs: 

fdl$secondary - Secondary code 
Output Parameters: 

none 


WR SO OONOUE WN -OOOVOu fw 


FRRRARRARARRAAARAE ERE REE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 Implicit Outputs: 
: none 
1 Routine Value: 
: none 
1 Routines Called: 
oee : none 
+¢ 1 Side Effects: 
O68 : none 
4 lee 
$90 
4 : BEGIN 
ore REGISTER 
are PARSED_F AB : REF BLOCK C ,BYTE J; 
378 PARSED_FAB = .FDLSAB_PARSED_FAB; 
658 ; Set em up 
OB CASE -FDLSGL_SECONDARY FROM FDLSC_BLKSPN TO FDLSC_SIZE OF 
oes C FDLSC_BLKSPN J: PARSED_FAB C FABSV_BLK ] = NOT .FDLSGL_SWITCH; 
Bae C FOLSC_CARCTAL J: CASE .FDLSGL_QUALIFIER FROM FDLSC_NONE TO FDLSC_PRINT OF 
0 ! We must clear the other flops while setting the one 
3 we want (without clearing BLK if set) 
$89 { FDLSC_NONE ] =: PARSED_ FAB [_FABSB_RAT ) = 
090 -PARSEB_FAB C FABSB_RAT J AND 
091 F ABSM 3 


Sep-1984 01:50: VAX=11 Bliss-32 V4.0-74 Pa 43 
n30p71$8c 93339398 DL SKSVMSMASTERS LDL SRCSFDLPARSE 832-19" (14) 


a 
VAX-11 FDL Utilities 18-50 -1984 01:50: VAX-11 Bliss-32 
SET_RECORD_P 12-808-1 382 9:39:08 DISKSVMSMASTER 
098 C FDLSC_CR J : PARSED_FAB C FABSB_RAT J = 
9 ( .PARSED FAB C FABS$B_RAT J AND 
94 FABSM_BLK ) OR rrr : 
95 C FOLSC_FTN ] : PARSED_FAB [ FABSB_RAT J) = 
38 ( .PARSED FAB C FABSB_RAT ] AND 
9 FABSM_BLK ) OR CAgOnF TMs 
a8 C FDLSC_PRINT ] : PARSED FAB [ FABS$B_RAT J} = 
( .PARSED FAB C FABSB_RAT J] AND 
100 FABSM_BLK ) OR FABSM_PRN; 
101 TES; 
198 C FDLSC_VFCSIZ J: PARSED_FAB C FABSB_FSZ J = .FDLSGL_NUMBER; 
105 C FDOLSC_FMT ] =: PARSED_FAB C FABSB_RFM J] = .FDLSGL_QUALIFIER; 
109 ae C FDLSC_SIZE J : PARSED_FAB C FABSW_MRS ) = .FDLSGL_NUMBER; 
109 
110 RETURN 
111 
112 END; 
000C 00000 SET_RECORD_P: 
. WORD ve R2,R3 
53 000000006 00 9€ 00002 MOVAB FDLSGL_NUMBER 
52 000000006 00 9E 00009 MOVAB FDLSGL-QUALIFIER, R2 
50 000000006 00 D0 00010 MOVL §§ FDLS$AB~PARSED_FAB, PARSED_FAB 
04 00000088  8F 00000000G 00 CF 00017 CASEL FDLSGL-SECONDARY, #136, #% 
005F 005A 0018 000A 00023 1$: .WORD 2$-1$,- 
0064 90028 $-1$.- 
9$-1$.- 
eg 
51 000000006 00 pb2 90020 2s: MCOML FDLSGL_SWITCH, R1 
AO 01 03 51 FO 000 INSV R1, #3, #1, 30(PARSED_FAB) 
04 OOO3A RET 
51 1E AO 9E 00038 3$ MOVAB 30(PARSED_FAB), R1 
03 08 62 CF 0003F CASEL FDLS$GL_QUALIFIER, #8, #3 
0028 001C 000D 0008 00043 4$: «WORD 53-48, 
$-4$.- 
8$-4$ 
61 F7 8F 8A 00048 5$: BICB2 #9, (R1) 
04 O04F RET 
50 61 9A 9050 6$: MOVZBL (R1), RO 
50 FFFFFFF7 BF A Bee BICL #-9, R 
61 50 2 89 0005A BISBS #2, RO, (R1) 
4 0005€ RET 
50 61 9A 0005F 78: MOVZBL (R1), RO 
SO FFFFFFF7 8F A Ones BICL a-9, 
61 50 01 89 0006 BISB3 #1, RO, (R1) 
4 0006D RET 
50 61 9A O006E 88: MOVZBL (R1), RO 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Se Be Be Se Se Se 


leet ty, Page 44 
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al 


an 
ao 
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FDLPAR VAK=11 FDL getitetes 
voL-000" SET_RECORD_P 


SO FFFFFFF7 8 68F 
61 50 04 


3F =A 63 
1F 860 62 
36 =—A0 63 


; Routine Size: 140 bytes, Routine Base: _FDLSCODE 


H 8 
16-Sep-1984 01:50:08 VAX-11 Bliss-32 v4.0-74 
14-Sep-1984 12:31:19 DISKSVMSMASTER: CFDL. SRC JF DLPARSE .832;1 
00071 BicLe #-9, RO 
89 00078 B1SB #4, RO, (R1) 
04 0007C RET 
a 9d 9$: ere FDLSGL_NUMBER, 63(PARSED_FAB) 
90 9082 108: move FDLSGL_QUALIFIER, 31(PARSED_FAB) 
4 0087 11$: MOVW FDOLSGL_NUMBER, 54(PARSED_F AB) 
4 00088 RET 


Page 


45 
(14) 


8 
FDOLPAR VAKX-11 FOL Utilities 14-58 -1984 01:50: VAX-11 Bliss-32 V4.0-74 Page 46 
+ 3 SET ACCESS_P 1a-8ep-19 4 0539 08 DI SKSVMEMASTER CEDL SRC SFDLPARSE .B32047 (15) 
3 1405 11 1 ZSBTTL + ACCESS_P* : 
; 1 1 : ROUTINE SE ACCESS_P : NOVALUE = : 
: 14 Me 1 | : 
: +o 1 : } Functional Description: : 
; rou 119 : : Fill in the blanks for the fab fields concerning access mode : 
; 1218 ! 1 ; Calling Sequence: ; 
; 1615 § 1 set_access_p() ; 
: 1419 ; 5 : Input Parameters: : 
3 none 3 
3 1218 1 § 1! : 
g 1431 ; 3 : Implicit Inputs: : 
; + ¢ : ? : fdi$secondary = Secondary code : 
t 1426 1 j 1 | Output Parameters: : 
: 1058 13% 4 i —_ 
+ 1427 135 1! Implicit Outputs: : 
NB BB LL ine : 
: 1280 138 1! Routine Value: 3 
; He 139 1! none 3 
3; 14 ¢ 140 1! 3 
3 +? 16 ! Routines Called: : 
3 n 3 
3 1455 123 1! 3 
3 14 144 1°! Side Effects: 3 
; ieee 145 1! none 3 
; 1438 108 1! 3 
3; 1439 14 1 !e<- s 
. nt oer : 
; 1466 150 : 
3 144 151 REGISTER 
3 re} 13¢ PARSED_FAB : REF BLOCK C ,BYTE J; 
5 1446 154 PARSED_FAB = .FDLSAB_PARSED_FAB; 
: ete 136 !' Set em 
+ 1449 133 i - 
: 1339 138 cast -FDLSGL SECONDARY FROM FDOLSC_FACBIO TO FDLSC_FACUPD OF 
; 1626 H+ C FDLSC_FACBIO ] : PARSED_FAB C FABSV_BIO J) = .FDLSGL_SWITCH; 
; 1636 16¢ C FOLSC_FACDEL ] : PARSED_FAB C FABSV_DEL J = .FDLSGL_SWITCH; 
; 1456 164 C FDOLSC_FACGET J : PARSED_FAB C FABSV_GET ] = .FDLSGL_SWITCH; 
; 1458 166 { FDLSC_FACPUT J : PARSED_FAB C FABSV_PUT J = .FDLSGL_SWITCH; 
; 1460 168 [ FDLSC_FACBRO ] : PARSED_FAB C FABSV_BRO ) = .FDLSGL_SWITCH; 


ee = ro 
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S 
ao 
wr 


Se Ge Ge Geese Se Ge Ge 
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0020 


61 
61 
61 
61 
61 
61 
61 


; Routine Size: 


06 
OO1A 
0032 


01 
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84 bytes, 
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C FDLSC_FA 
C FDLSC_FA 


TES; 


TURN 


Routine Base: 


1E-se0-1984 0:50:08 


CTRN J : PARSED_FAB C FABSV_TRN ) = .FDLSGL_SWITCH; 
CUPD ] : PARSED_FAB C FABSV_UPD ] = .FDLSGL_SWITCH; 
0000 00000 SET_ACCESS P: 
-WORD Saven 
gooseoges 08 dO 09009 MOVL FOLS 
9E 0 MOVAB 22(PA 
900000066 00 DO MOVL FDLSGL_SWITCH, 
000000006 00 CF ist CASEL FDLSGL- SECONDARY. #1, 
000E 0001C 1$ .WORD ¢3-13-5 
0026 00024 $-1$,- 
4$-1$,- 
5$-1$,- 
6$-1$,- 
7$-1$,- 
8$-1$ 
50 FO OO02A 2$: INSV RO, #5, #1, (R1) 
04 Boner RET 
50 FO 00030 3$ INSV RO, #2, #1, (R1) 
04 00035 RET 
50 FO 00036 4$: INSV RO, #1, #1, (R1) 
04 00038 RET 
50 FO 0003C 5$: INSV RO, #0, #1, (R1) 
04 00041 RET 
50 F0 Bats 6$ INSV RO, #6, #1, (R1) 
04 0004 RET 
50 FO 00048 7$ INSV RO, #4, #1, (R1) 
04 0004D RET 
50 FO Boek 8$ INSV RO, #3, #1, (R1) 
04 0005 RET 
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FDLPARSE AX=11 FDL Utilities 6 1:50: VAX-11 Bliss-32 V4.0-74 Page 48 
i ET_SHARING_P 14-Sep-1984 95:39:98 DLSKSVMSMASTERSLY DL. SRCTFDLPARSE 83264 (16) | 
3 1471 8 1 ZSBTTL. ‘SET_SHARING P* 
; ere 79 1 ROUTINE SET_SHARING_P : NOVALUE = 

an a 

; 1en2 ; ! ; Functional Description: 

3 1477 4 Fill in the blanks for the fab fields concerning sharing 

3 ie Hy ! Calling Sequence: 

: 1481 88 1 | set_sharing_p() 

3; 14 ¢ 89 1! 

; 14 90 1! Input Parameters: 

3; 1484 91 1! n 
3; 1485 35 1! 

3; 1486 93 1! Implicit Inputs: 
3; 1487 % «1! 
: e+ 4 32 : fdl$secondary - Secondary code 
: 1490 97 1 | Output Parameters: | 
1 DS eee 
1498 00 1 | Implicit Outputs: 

: 6) ten 
; 1496 08 1 ! Routine Value: 

We “Bs ee 
> 1499 06 1 ! Routines Called: | 
ie at 
3 1308 9 1! Side Effects: | 
: 150 a" none 

3; 1504 1 1! 
a. ie 
Py 
; at ¢ 2 BEGIN 
: 1509 6 REGISTER | 
; 13i9 Hs PARSED_F AB : REF BLOCK C ,BYTE J; 
: 1312 3 PARSED_FAB = .FDLS$AB_PARSED_FAB; 

; 13t8 : Set em up 

; 1318 CASE -FDLSGL_SECONDARY FROM FDLSC_SHRDEL TO FDLSC_SHRUPI OF 

; 1218 C FDLSC_SHRDEL J] : PARSED_FAB C FABSV_SHRDEL J] = .FDLSGL_SWITCH; 

; 1360 C FOLSC_SHRGET ] : PARSED_FAB C FABSV_SHRGET ] = .FDLSGL_SWITCH; 

; 1382 C FDLSC_SHRMSE J] : PARSED_FAB C FABSV_MSE ) = .FDLSGL_SWITCH; 

: 1334 C FDLSC_SHRNIL ] : PARSED_FAB C FABSV_NIL J = .FDLSGL_SWITCH; 

; 1396 C FDLSC_SHRPUT ] : PARSED_FAB C FABSV_SHRPUT ) = .FDLSGL_SWITCH; 


FDLPARSE VAX-11 FDL Utilities 1b-5e Sep-1984 VAX-11 Bliss-32 V 49 F 
vai SET_SHARING_P Hath 9}: 39: 8 DISKSVMSMASTER: choc” OC RCIFOLPARSE. B32, 79 © 16) v 
: } 3 5 C FDOLSC_SHRUPD J : PARSED_FAB C FABSV_SHRUPD ] = -FDLSGL_SWITCH; 

3 1 0 ? 5! FDLS$C_SHRUPI ] : PARSED_FAB C FABSV_UPI ] = .FDLSGL_SWITCH; 

:1 9 ‘ 

3 3 § 40 RETURN 

; 1534 41 

3 15355 42 1 END; 


0000 00000 SET_SHARING P: 
ORD 


oW Save no : 2179 
50 000000006 00 pO 00002 MOV FDL$AB once FAB, PARSED_FAB + 2219 
51 17, AO 9E 00009 MOVAB 23(PARSED FABY, Ri + 2225 
50 000000006 00 D0 0000p MOVL  FDLSGL_ RTT TCH, R ; 
06 0000008D  &F 000000006 00 CF 00014 CASEL FDLS$GLISECONDARY, #141, #6 + 2223 
0020 OO1A 0014 000E 00020 1$ WORD g-1$.° ; 

0032 002¢ 0026 00028 $-1$.- : 
4$-1$.- ; 
5$-1$.- : 
6$-1$.- ; 
7$-1$.- ; 
8$-1$ ; 

61 01 02 50 FO 0002¢ 2$: INSV RO, #2, #1, (R1) > 2225) 
04 0003 RET ; | 

61 01 01 50 FO 00034 3$: INSV RO, #1, #1, (R1) : 2227 
04 00039 RET : 

61 01 04 50 FO OO003A 4$: INSV RO, #4, #1, (RI) > 2229 
04 0003F RET : 

61 01 05 50 FO 00040 5$: INSV RO, #5, #1, (R1) > 2231 
04 00045 RET ; 

61 01 00 50 FO 00046 6$: INSV RO, #0, #1, (R1) : 2233 
04 00048 RET ; 

61 01 03 50 FO 0004C 7$: INSV RO, #3, #1, (R1) > 2235 
04 00051 RET ; 

61 01 06 50 FO 00052 8$: INSV RO, #6, #1, (R1) : 2237 
04 00057 RET > 2242 
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FDLS$C_WBH J 


: PARSED_RAB 


RABS$V_WBH 


.FDLSGL_SWITCH; 


nN 8 
vOG~000" SET CONNECTOR Tes WexSep-1984 13:31:19 DASKSUMEMASTERSCFDL SRCSFDLPARSE.B3209%" (193 
1338 00 C FDLSC_FLOA ] : PARSED_RAB C RABSV_LOA } = .FDLSGL_SWITCH; 
; 1396 O¢ C FDLSC_FDEL ] : PARSED_RAB C RABSV_FDL ) = .FDLSGL_SWITCH; 
1398 04 C FDLSC_KGE ] =: PARSED_RAB C RABSV_KGE J = .FDLSGL_SWITCH; 
1600 06 C FDLSC_KGT ] =: PARSED_RAB C RABSV_KGT ] = .FDLSGL_SWITCH; 
i 1606 08 C FDLSC_KLIM ] : PARSED_RAB C RABSV_LIM J = .FDLSGL_SWITCH; 
: 1604 2310 C FDLSC_KRF ] =: PARSED_RAB C RABSB_KRF ] = .FDLSGL_NUMBER; 
1606 ; : C FDLSC_LOCMODE ] : PARSED_RAB C RABSV_LOC J = .FDLSGL_SWITCH; 
; 1608 é 4 ; C FDLSC_REA ] =: PARSED_RAB C RABSV_REA ) = .FDLSGL_SWITCH; 
1610 3316 é C FDLSC_RLK J]: PARSED_RAB C RABSV_RLK ) = .FDLSGL_SWITCH; 
lore é 8 : C FDLSC_ULK ] =: PARSED_RAB C RABSV_ULK J = .FDLSGL_SWITCH; 
; 1614 3320 ; C FDLSC_MBC ] =: PARSED_RAB C RABSB_MBC ] = .FDLSGL_NUMBER; 
1616 ; é é C FDLSC_MBF ] =: PARSED_RAB C RABSB_MBF ] = .FDLSGL_NUMBER; 
; 1618 e304 2 C FDLSC_NLK ] =: PARSED_RAB C RABSV_NLK ] = .FDLSGL_SWITCH; 
: 1620 é 6 ; C FDLSC_NXR ] —: PARSED_RAB C RABSV_NXR J = .FDLSGL_SWITCH; 
eee : : : C FDLSC_RAH ] _—: PARSED_RAB C RABSV_RAH ] = .FDLSGL_SWITCH; 
1624 é 0 2 C FDLSC_RRL ] =: PARSED_RAB C RABSV_RRL } = .FDLSGL_SWITCH; 
1686 e332 ¢ C FDLSC_TMO ] —: PARSED_RAB C RABSB_TMO ) = .FDLSGL_NUMBER; 
; 1628 é 4 2 C FDLSC_TMENB ] +: PARSED_RAB C RABSV_TMO ] = .FDLSGL_SWITCH; 
; 1630 é 6 3 C FDLSC_TPT ] =: PARSED_RAB C RABSV_TPT ) = .FDLSGL_SWITCH; 
1632 2338 3 C FDLSC_TTCCO J] : PARSED_RAB C RABSV_CCO } = .FDLSGL_SWITCH; 
1634 2 0 ¢ C FDLSC_TTCVT J] : PARSED_RAB C RABSV_CVT J = .FDLSGL_SWITCH; 
1636 g34e @ C FDLSC_TTPMT J] : PARSED_RAB C RABSV_PMT J = .FDLSGL_SWITCH; 
1638 ; 4 5 C FDLSC_TTPTA J] : PARSED_RAB C RABSV_PTA } = .FDLSGL_SWITCH; 
1640 3346 5 C FDLSC_TTRNE ] : PARSED_RAB C RABSV_RNE } = .FDLSGL_SWITCH; 
i: 1642 3 8 5 C FDLSC_TTRNF ] : PARSED_RAB C RABSV_RNF ) = .FDLSGL_SWITCH; 
3 1644 3 Q s C FDLSC_UIF } : PARSED_RAB C RABSV_UIF ] = .FDLSGL_SWITCH; 
3 1646 ; : 5 C FDLSC_WAT ] —: PARSED_RAB C RABSV_WAT ) = .FDLSGL_SWITCH; 
: 1648 i C } 
: 1649 2355 : 
3; 1650 2356 
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FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_NUMBER, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_NUMBER, 
FDLSGL_NUMBER, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_NUMBER, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
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FDLSGL_SWITCH, 
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FDLSGL_SWITCH, 
FDLSGL_SWITCH, 
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#5, #1, S(PARSED_RAB) 
#6, #1, 4(PARSED_RAB) 
#5, #1, 6(PARSED_RAB) 
#6, #1, 6(PARSED_RAB) 
#6, #1, S(PARSED_RAB) 
53(PARSED_RAB) 

#0, #1, 6(PARSED_RAB) 
#2, #1, 4(PARSED_RAB) 
#3, #1, 6(PARSED_RAB) 
#2, #1, 6(PARSED_RAB) 
55 (PARSED_RAB) 

54 (PARSED_RAB) 

#4, #1, 6(PARSED_RAB) 
#7, #1, 6(PARSED_RAB) 
#1, #1, S(PARSED_RAB) 
#3, #1, 4(PARSED_RAB) 
31 (PARSED_RAB) 

#1, #1, 7(PARSED_RAB) 
#1, #1, 4(PARSED_RAB) 
#7, #1, 7(PARSED_RAB) 
#2, #1, 7(PARSED_RAB) 
#6, #1, 7(PARSED_RAB) 
#5, #1, 7(PARSED_RAB) 
#0, #1, 7(PARSED_RAB) 
#3, #1, 7(PARSED_RAB) 
#4, #1, 4(PARSED_RAB) 
#1, #1, 6(PARSED_RAB) 
#2, #1, S(PARSED_RAB) 
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FY Mb 1 ZSBTTL ‘“SET_PROT’ 

[1 1 ROUTINE SET_PROT : NOVALUE = 

3; 16 1 tee 

3; 16 1! 

3 1? : } Functional Description: 

; 199) ! Fill in the blanks for the protection xab 

; 1868 1! Calling Sequence: 

3 1666 1! 

; 1665 ,} set_prot() 

3 1298 1! 

3; 166 1 ! Input Parameters: 

5 1oo8 1! none 

: 1256 1 Implicit I t 

. 3 c $: 

; 1671 . % ee —_— 

3 1o76 ; fdi$secondary - Secondary code 

: 1674 1: Output Parameters: 

3; 1675 1! none 

3 dA 1! 

3; 167 1! Implicit Outputs: 

3 Hb dA 1! none 

3; 16 & 

; 1680 1 ! Routine Value: 

: 1681 1! none 

3 Ione 1! 

3; 168 1 ! Routines Called: 

3: 16846 1! none 

: 1686 1 i Side Eftect ; 
3 ! e ects: 3 
: 1889 1! none 3 
; 1688 2 3 
; 1689 1 !e- 3 
3; 1690 1 3 
; 1691 BEGIN 

g 1696 

3 1eaz See if the protection xab has been allocated yet 

: 1695 if .PROTECTION_XAB EQLU 0 

3 1008 THEN 

; 1698 + Allocate the xab an enter it into the chain 3 
; 1700 PROTECTION_XAB = ALLOCATE_XAB ( XABSC_PRO, 0 ); : 
; 1708 toy ! Set the fields according to the secondary : 
; 1704 409 SELECTONEU .FDLSGL_SECONDARY OF : 
: 170 ei3 C FDOLSC_MTPRO ) : PROTECTION_XAB C XABSB_MTACC J] = .FDLSGL_QUALIFIER; : 
; 1708 ci8 C FDLSC_PROT ) : PROTECTION_XAB [ XABSW_PRO ] = NOT .FDLSGL_PROTECTION; ; 
: 1710 415 { FDLSC_OWNER ) : PROTECTION_XAB C XABSL_UIC ] = .FDLSGL_OWNER_UIC; 

3; 1711 416 TES; 


Gocco apt RE GI 


; Routine Size: 96 bytes, 


RETURN 
END; 


00000000v 
00000059 


OA 
00000065 


08 
00000063 


oc 


Routine Base: 


52 00000000° 


7? 
§ 000000006 
8F 


50 
AO 000000006 
8F 


50 
AO 000000006 
8F 


50 
AO 000000006 


: 
7 


é 
5 
0 
6 
0 
5 
0 
6 
0 


2 
0 


16-Sep-1984 
-Sep- 
14- gee7} 19 


0004 00000 SET_PRO 


9 

T 

, 08 

D 000 

FB 0001 

DO 0001 

DO OOOI1A 18: 
D1 00021 

12 00028 
DO 0002A 
90 00020 

04 00035 

D1 00036 2$: 
3 ity 

DO 0003F 
8 00042 

4 QO04A 

D1 00048 3$: 
12 00052 

DO 00054 

DO 00057 
04 OO0SF 4$: 


-FDLSCODE + OB9F 


Bo 92:30:19 DISKSUNSMASTERSCF DL. SRCSFDLPARSE..832;1°" (185 


T: 


N_XAB, R2 
XAB 


) 

y ATE_XAB 

RO. PROTECTION XAB 
CONDARY, RO 

PROTECTION. XAB 

FDLSGL TQUACIFIERS OF ocRO? 

RO, #101 

3$ 


PROTECTION _XAB, RO 
FOLSGL PROTECTION, 8(RO) 


RO. #99 


4$ 
PROTECTION XAB, RO 
FDLS$GL_OWNER_UIC, 12(RO) 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se 


2413, 


; 2415 


2420 | 
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V04e000 ALLOCATE. KAB 1enseea}986 12581159 PERKSUMCMASTER CIBC Sac SrOLPARSE.03201°" | 


TTL ‘ALLOCATE_X | 
UTINE ALLOCATE TCs ( MAB_TYPE, XAB_WUM ) = 


~ 
—_— 


SOGFEARFUOSLSSSVSEOR ANS 
a En Entententcetetentenetaten ah ae eek ake ots 
—-OCOo@m MEW 0 OONAUE 


= 
— 


$ 


ee a 
i 
@o 


32 | 


Functional Description: 
Allocates an RMS extended attribute block from virtual memory 


SHAT AHHHATHREKHHAAEHTEHeTeeeeeeeeeteeeeeeeneeateeeereneeeee 


NOTE: THIS ROUTINE ASSUMES XABs ARE CONNECTED TO THE SFAB !!! 
1T WILL NOT WORK WITH XABs THAT ARE CONNECTED TO THE $RAB !!! 


LARRRASAALALALALALLLA SALA SAR ERASE LEER ERE RAS E REESE SEER SERRE 
' Calling Sequence: 

allocate_xab( xab_type, xab_num ) 

! Input Parameters: 


ee i, i Bp ee, Pe, ee ee ee Pe 


ed ee ee ee ee ee ee 


3 1 1 

3: 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

3 7 1 

3} 1 

3 1 1 

3 3 1 

3 1 1 

3 7 1 

3) 1 

3 7 1 

3 3 1 

3s 3 1 

3 1 

3; % 1 

3 3 1 

: : : 

3 7 1 xab_type - The RMS code for the type of xab wanted ie. XABSC_xab 
5 : ie rr : xab_num - Which xab is desired (for key and area xabs) 
: 17461 445 1 Implicit Inputs: 

3 1 eg 44 1 none 

3 176 44 1 

3 1766 448 1 ! Output Parameters: 

3 1765 449 1 none 

3: 1 m4 450 1 

3 174 451 1 Implicit Outputs: 

; 1748 452 1 none 

3: 1749 453 1 

3; 1750 454 1 ! Routine Value: 

3; 1751 455 1 ; 
; 1726 $2 : Pointer to the new xab (also pointed to by current xab) 
3; 17546 458 1 Routines Called: 

3: 1755 459 1 

; 1728 460 1 fdl$$get_vm 

: 175 461 1 ‘ 

; 1758 462 1 Side Effects: 

; 1759 463 1 

; 1760 464 1 current_xab pointes to the new xab 
2 

3 1788 rhe 1 

3: 1764 468 BEGIN 

: 1765 469 

3: 17 470 LOCAL 

: 176 471 XAB : REF BLOCK C ,BYTE J, 

: 1768 47 FOUND 

: 1769 47 XAB_LEN, 

: 1770 474 NEW_XAB; 

3; 1771 475 

3 HA 47 ! Find the size of the type of xab we want. 
: 177 47 : 


H 9 

| FOLPARSE VAK-11 FDL Utilities 16-Sep-1984 01:50: VAX-11 Bliss-32 V4.0-74 Page 58 
“06-008 ALLOCATE _xXAB 10=808- 1382 93:39:08 DI SKSVMGMASTER LY DL SRCTFDLPARSE .832047 (19) 
: 17746 47 MAB_LEN = ( SELECTONEU .xXAB_TYPE OF 

3 ie cf * ET ‘a 

3 4 | 4 rttey: : XABSC_ALLLEN; 

3 177 481 KABSC“DAT J : XABSC"DATLEN: 

; 1778 4 : KABSC_JNL ) : XASSCJNLLEN; 

3; 17 6 KABSC_KEY J : KABSC_KEYLEN; 

; 17 4 XABSC_PRO J] : XABSC_PROLEN; 

: 1781 485 KABSC-RDT J : XABSC"RDTLEN: 

3 17 § 4 $ TES ); 

3: 17 4 

: 17 488 FOUND = _CLEAR; 

: 1785 489 

3 17 490 ! See if the xab we need already exists 

3 iy $33 (if we're in the second parse 

: 1789 49 if ¢ 
; 1790 494 & ( .FDLSAB_CTRL C FDLSV_REPARSE J ) 
; 1791 495 3 AND 

3 1738 £38 4 ( ( ,XAB_LTYPE EQLU XABSC_ALL ) OR ( .XAB_TYPE EQLU XABSC_KEY ) ) 

: 179 49 ) TH 

3 1794 498 BEGIN 

: 1795 499 

; 1796 300 KAB = .FDLSAB_PARSED_FAB [ FABSL_XAB J; 

3; 1798 20¢ WHILE .XAB NEQU 0 

3; 1799 50 

; 1800 504 4 BEGIN 

3; 1801 505 4 

; 180 208 ; IF ¢ 

3; 180 50 (( .XAB_TYPE EQLU XABSC_ALL ) 

: 1804 508 § 

; 1805 309 f ( .XAB C XABSB_COD J EQLU XABSC_ALL ) | 
> 180 511 6 ( .XAB C XABSB_AID J] EQLU .XAB_NUM )) | 
3; 1808 218 5 OR 

: 1809 513 7 (( .XAB_TYPE EQLU XABSC_KEY ) 

3; 1810 514 6 
3 + He 32 : ( .XAB C XABSB_COD ] EQLU XABSC_KEY ) 

3 1818 319 6 ( .XAB C KABSB_REF ] EQLU .XAB_NUM )) 

> 1814 518 4 ) THEN 

3; 1815 519 BEGIN 

g 1s16 520 

3 + 521 NEW XAB = .XAB; 

> 1818 5 : FOUND = SET; 

3; 1819 5 : EXITLOOP; 

: 1820 524 

: 1821 525 4 END; 

; 18 ¢ 5 $ 4 

; 18 5 4 ¥AB = .XAB C XABSL_NXT J; 

: HF 4 5 3 4 

3; 1825 5 END; 

: 18 $ 530 

3; 18 531 END; 

3; 1828 5 ; 

3; 1829 5 IF NOT .FOUND 

; 18 534 THEN 


— 


"es 


> 
Zz 
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ALLOCATE _XAB -3 aan 93530395 DLSKSVMSMASTERSCFDL SRCTFOLPARSE 83204" (19) 


BEGIN 

Allocate a buffer for the new xab 

NEW_XAB = FDLSSGET_VM( .XAB_LEN ); 

! If this is the first xab Link it to the fab else just connect it to 


PUN BOO w aeRO 
wr 
oP a et 
Wr —-OOOnou 


3 1 

s 1 

s 

3 3 

3 1 

i 

; : 54 } the last xab in the chain 

; ! 246 iF Ff DLSAB_PARSED_FAB { FABSL_XAB ] EQL 0 
: : 2 gr og PUSAOPARSED FAB C FABSL_XAB ) = .NEW_XAB 
31 548 END_XAB C XABSL_NXT ] = .NEW_XAB; 
3; 1845 549 

3 + J 550 END_XAB = .NEW_XAB; 

; ise 551 

; 1848 226 END; 

3; 1849 55 

; 1850 554 ! Make this xab the current one 

; 1851 555 ' 

3 1836 556 CURRENT_XAB = .NEW_XAB; 

3 132 557 

3 1854 558 IF NOT .FOUND 

; 1855 559 THEN 

3 1328 560 BEGIN 

: 185 561 

; 1858 206 ! Init. some stuff in it 

: 1859 56 ! 

: 1860 564 CURRENT_XAB { XABS$B_COD ] = .XAB_TYPE; 
> 1861 565 CURRENT-XAB € XAB$B"BLN J = .XAB"LEN; 
3 1866 266 CURRENT_XAB { XABSL_NXT J = 0; 

3; 186 56 

3; 1864 568 END; 

; 1865 569 

> 1866 570 RETURN .CURRENT_XAB 

: 1867 $27) 2 

; 1868 572 1 END; 


007C 00000 ALLOCATE_XAB: 
- WORD 


Save R2,R3,R4,R5,R6 : 2422 
5¢ 000000006 00 9€ 00002 MOVAB FDLSAB PARSED FAB, R6 : 
55 00000000' 00 4 00009 MOVAB CURRENT XAB, R5 ; 

52 04 AC 00 00010 MOVL  XAB_TYPE, Ré : 2478 | 
14 52 D1 0014 CPL R2, #20 ; 2480 
53 g 6 $019 MOVL #32, XAB_LEN : | 

11 0001C BRB F | 
12 é pt one 1$: CHPL R2, #18 3 2481 
53 5 06 ne MOVL #44, XAB_LEN ; 
22 H D1 000 8 2$: CMPL  R2, #34 : 2482 


Peron a - 


3 
FOLPARSE VAX-11 FDL Utilities 18- Sep-1984 01:50 
vA ALLOCATE_XAB 14- ~30 7182 0333 
5 B BNEQ 
53 06 86 ONL 
11 000 BoB 
15 p} 8 3$ CMPL 
6 2 BNEQ 
53 4c F OA 3 MOVZBL 
1g 11 00038 BRB 
13 52 D1 8 D 4$ CMPL 
06 12 3 BNEQ 
53 58 8F 9A 0004 MOVZBL 
98 11 st BRE 
1E g » Bee 5$ CMPL 
0 048 BEQL 
53 01 cf 0040 MNEGL 
03 11 00050 BRB 
53 14 00 Oe 6$: MOVL 
54 D4 00055 7$: CLRL 
47 00000000G 00 €E9 Bee BLBC 
14 3 D1 O00SE CMPL 
05 13 00061 BEQL 
15 52 D1 Bees CMPL 
3D is 0066 BNEQ 
50 66 DO 00068 8$: MOVL 
51 24 Ad 9 00068 MOVL 
34 13 OOO6F 9$: BEQL 
14 52 01 00071 CMPL 
OE 12 00074 BNEQ 
14 61 91 00076 CMPB 
09 12 00079 BNEQ 
08 AC 17 ~Al 08 9 Fe 00078 CMPZV 
13 13 00082 BEQL 
15 52 D1 00084 10$: CMPL 
16 12 00087 BNEQ 
15 61 91 00089 CMPB 
11. 12 0008C BNEQ 
08 Ac 17 Al 08 00 €D 4434 CMPZV 
08 12 0009 BNEQ 
50 51 DO 00097 11$ MOVL 
54 01 DO QO09A MOVL 
06 11 0009D BRB 
51 04 Al DO OOO9F 128: MOVL 
CA 11 QOOA3 BRB 
23 54 E8 OOOAS 13$: BLBS 
53 DD SOAS PUSHL 
00000000v 00 01 FB OOOAA CALLS 
51 66 00 00081 MOVL 
24 Al D 00B4 TSTL 
96 12 00087 BNEQ 
24 Al D 00B9 MOVL 
08 11 000BD BRB 
51 04 AS 00 ita 14$: MOVL 
04 Al 2 D 0 C3 MOVL 
04 = AS DO 000C7 15$: MOVL 
65 50 D Bate 16$: MOVL 
OD 54 €E OOCE BLBS 
50 93 4 0001 MOVL 
60 2 90 000D4 MOVB 
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3$ 


4g XAB_LEN 
4303 XAB_LEN 
POLSAR CTRL #2. 13$ 


B), #20 

#0, #8, 23(XAB), XAB_NUM 
Ro. #21 

(XAB), #21 

"9 #8, 23(XAB), XAB_NUM 


XAB, NEW XAB 
#1, FOUND 


4(XAB), XAB 
FOUND a 


XAB_L 
#1, “FOLSSGET 
EDL SAB_P PARSED. FAB, R1 


Xx r R1 
NEW_XAB, A 
NEW_XAB, XAB 
i CURRENT XAB 


UND 
CURRENT. XAB, RO 


Pe Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Sse Se Ge Ge Ge Ge Ge Ge Ge Ge Be Fe Se Be Ge Se Se Ge Se Fe Se Se Be Se Be Se Se Se Se Fe Fe Be Se Se Ge Se Be Be Be Be 


e 60 
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Bete Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se SHS Se Se ee Se Se Be ae 


9 

vor 008" XEtotATE habe tittes 1$§20-] 984 P3i39:98 eee mGmASPERscHbL sheSeovPaRseo3209%* 19) 
01 AO 53 90 90007 Move EN, 1(RO) : 2565 

i 0) cee ae ee Bs 
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V 008 FIND_ID 18-808- 1382 93:39:98 DTEKSVMEHASTERSLY OL SRCTFOLPARSE 832047 (28) 
eC A7 90000006 0 p60 O3€ MOVL § FDLSAB_STRING+4, 44(FAB) ; | 
4 A? 000000006 046 MOVE.  FDLS$ABTSTRING, 52(FAB) : | 
0060 &F 00 6E 0 2c O45 MOVCS #0, (SP), #0, #96, (NAM) + 2636. 
a4 6002 i 0 00056 OVW 424578, (NAM) : | 
OA A 1 BE 00058 MNEGB #1, 10(NAM) : 
OC Ab 60 Ag E 0005F MOVAB 96(R6), 12(NAM) : 
57 DD 00064 PUSHL FAB + 2640) 
000000006 00 01 FB 0066 CALLS #1, SYSSPARSE : 
26 0 £9 0006D BLBC ~—=_—«aRO,._*1 : 
57 DD 0007 PUSHL FAB + 2643, 
000000006 00 gi FB 007 CALLS #1, SYSS$SEARCH : 
1A 0 07 LBC ~=Os«éRO. «18 : 
000000006 00 24 AB 3C 0007C MOVZWL 36(NAM), FDL$GL_FID1 + 2649 | 
000000006 00 26 «=A -3C 00084 MOVZWL 38(NAM). FDLS$GL~FID2 + 2650. 
000000006 00 28 Ab 3C 0008C MOVZWL 4O(NAM). FDLS$GL~FID3 ; 2651 | 
0D 11 00094 BRB 2$ ; 
000000006 BF DD 00096 1$ PUSHL #FDL$_RFLOC + 2657. 
000000006 00 01 FB 0009¢ CALLS #1, LIBS$SIGNAL ; 
57 DD OO0A3 2$ PUSHL FAB + 2661 
7E 50 8F 9A OO00AS MOVZBL #80, -(SP) : 
3) 02 FB 000A9 CALLS #2, FDLSSFREE_VM : 
56 DD OOOAC PUSHL NAM : 2662 | 
7E O1SF BF 3C OOOAE MOVZWL #351, =-(SP) ; 
68 02 FB 000B3 CALLS #2, FDLSSFREE_VM é 
04 00086 RET > 2666 | 


; Routine Size: 183 bytes, | Routine Base: _FDLSCODE + OCE1 | 
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SVMSM. 
ZSBTTL noeT ayn vm’ 
~~ ROUTINE FDLSSGET_VM( BYTES ) = 
Functional Description: 

Allocate virtual memory and zeros it 
! Calling Sequence: 

fdl$$get_vm( bytes ) 
Input Parameters: 

bytes =- number of bytes to allocate 
Implicit Inputs: 

none 


Output Parameters: 
none 

Implicit Outputs: 
none 


Routine Value: 

address of the start of the buffer 
Routine Called: 

LibSget_vm 
Side Effects: 

none 


BEGIN 


LOCAL 
VM_POINTER; 


If we don't succede signal an error and stop 

IF NOT LIBSGET_VM ( BYTES, VM_POINTER ) 
SIGNAL_STOP ( FDLS_INSVIRMEM ); 

: Zero this address space 

CHSFILL ( 0,.BYTES,.VM_POINTER ); 

RETURN .VM_POINTER 

END; 
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#0, (SP), #0, BYTES, aVM_POINTER 


VM_POINTER, RO 
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FDLPARSE VAX-11 FOL Utilities 16-Sep-1984 01:50:0 VAX-11 Bliss-32 V4.0-74 Pa 7 
VO4-000 FREE_VM 1-Sep-19 4 93: 30:8 PISKSVMGMASTER LEDL SRC SFDLPARSE .B32079 7 (255 
5 ; 723 1 ZSBTTL ‘FREE_vm" 

3 Z 4 2 : GLOBAL ROUTINE FDLSSFREE_VM( BYTES,ADDR ) : NOVALUE = 
r] 5 7 $ 1! 

3 $ 4 ! Functional Description: 

ry : 4 $ : } Deallocate virtual memory 
3 f 1 : Calling Sequence: 

3 § f g : fdl$$free_vm( bytes,addr ) 
3 : f 5 : } Input Parameters: 

3 5 7 1! bytes =- number of bytes to deallocate 
3 : f ; : : addr - address of block 
; 20 740 1°! Implicit Inputs: 

; 2060 741 #1! none 

3 oe 742 1! 

3 ¢ 74 1 ! Output Parameters: 

3: 206 744 1! n 

3 20466 745 1! 

3; 2065 746 1°! Implicit Outputs: 

3 pee 747 1:5! none 

3: 206 748 1! 

3; 2068 749 1 ! Routine Value: 

3; 2069 750 1! none 

; 2050 751 #1! 

; 2051 23g 1 ! Routine Called: 

3 p28 755 1! 

3; 205 754 1! Lib$free_vm 

3; 20546 + ee 

3; 2055 Le 1 ! Side Effects: 

3 B28 757 1! none 

; 205 758 1! 

; 2058 759 1 I< 

3; 2059 760 1 

3; 2060 761 BEGIN 

3; 2061 76 

3 BO8 76 LOCAL 

3; 206 764 STATUS; 

3; 2064 765 

3; 2065 a If we don't succede signal an error and stop 
: Os res IF NOT ( STATUS = LIBSFREE_VM ( BYTES,ADDR ) ) 
: 534 770 SIGNAL_STOP ( .STATUS ); 

: 2070 771 

3; 2071 77 RETURN 

; 376 77 

; 207 774 «1 END; 
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FDLPARSE VAK-11 FDL Utilities these -1984 VAX-11 Bliss-32 V4.0-7 8 
yee FREE_VM 1e-$ep-1986 9}: 39: 3 DISKSVMSMASTER: CFDL. sre FDLPARSE. B32. 7 ge 388 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:FDLPARSE/OBJ=OBJ$:FDLPARSE MSRC$:FDLPARSE/UPDATE=(ENH$:F DLPARSE) 


00 -ENTRY FDLSSFREE_VM, Save nothing i 2724 ; 

oe AC OF PUSHAB ADDR : 2768 ° 

4 A fF PUSHAB BYTES é e 

000000006 4 F 00 CALLS #2, LIBSFREE_VM : : 

EB OOOOF BLBS STATUS, 18 : ; 

DD 00012 PUSHL STATUS : 2770 : 

000000006 00 1 FB 00014 CALLS #1, LIBSSTOP ; : 

04 iB 1$: RET 3: 2774 ‘ 

; Routine Size: 28 bytes, Routine Base: _FDLSCODE + ODCS : 
074 3775 1 ; 
075 776 0 END ELUDOM ‘ 
.EXTRN LIBSSIGNAL, LIBSSTOP 3 

PSECT SUMMARY : 

Name Bytes Attributes ; 
_FDLSOWN 28 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC .ALIGN(2) | ; 
_F DLSCODE 35 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
Library Statistics : 

cauenaae Symbols -------- Pages Processing 3 

File Total Loaded Percent Mapped Time ; 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 244 2 581 00:01.0 ; 


; Size: 3553 coge + 28 data bytes 
: Run Time 759.3 

3 Elapsed Time: :08.7 

; Lines/CPU M 809 


; Lenenes/CPU-Rin: 21493 
: Y Used: 276 pages 
; ee ation Complete 
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